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PL/M~-5S6 COMPILER LLNA Transport Control Layer Receive Process 04/15/82 


SERITES“ILL PL/Mr-S6 V2.0 COMPILATION OF MODULE RP 
OBYECT MODULES PLACED .IN SFIeKP.OaJ 
COMPILER INVOKED 3Y: PLHS6.86 sF1:RP.P86 OPTIMIZEC3) XREF SETCFI) DEBUG 


STITLEC“GILNA Transport Control Layer Receive Process 04/15/827) 
SCOMPACT DEBUG NOCOND 
*x* WARNING 10 IN 1 CLINE 2): RESPECIFIED PRIMARY CONTROL, IGNORED 
SSETCminform) 


SIF f7 
SEL oe 
SINCLUDE C:FIicpyrt.dcn) 


/* Intel Corporation Proprietary Information. 
This listing is supplied under the terms of a 
license agrement with Intel Corporaton and 

May not be copied nor disclosed except in 
accordance with the terms of that agreement. */ 


/x George D Marshall $C6-213 x775117  x/ 


/* This is TCL’s Receive Process (RP) and supporting routines. 

RP’s job is only to receive segments from Data LINK (Cor Network, 
when there is one) and process thems only received segments 

appear on RP’%s mailbox. RPcauses segments to be transmitted by 
undating shared variables in the connection data base (C08), then 
sending messages (Internal Request Blocks, or IR8s) to the Transmit 
Process (TP) requesting transmission of a segment Csuch as SYN-ACK, 
or ACK of a received data segment. RP also clears and sets 

the alarm control blocks in the CDBs, which are events to TP when 
and if they expire. */ | 


/x Conditional assembly flags: 
f7: if true, all include files are taken from :F7:- 
if false, from :Fi4:. 
Logs if true, code to handle trace buffers is included. 
dbgs if true, some additional debugging consistency 
checking code is included, 
mipform: if true, link and blkptrs in RB are assumed to 
be in mipform, so they are converted to addresses, 
*/ 


/x* . 
modified 03/10/ to change R. Shah’s dynamic retransmission 
policy to provide for less dynamic changes for dbp 

xf 


7h 


1 rp: 00, 


SIF f7 
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SELSE 

SINCLUDE (:F1:TCLGBL.~INC) 
LK KKK KKKIKKAKKK RK KK / 
/xx Global Literals **/ 
[RRR HIKKKKKKKKER/ 


= /x TCL Global Literals 04/15/82 x/ 
2 1 = DECLARE ; 
= maxtsendiseg LITERALLY “O7H’, /* max no of back-to-back segs that one connection */ 
= /x can send at a time x«/ 
= tcltheaderSlen LITERALLY “20°, /* bytes in tcl header x*/ 
= ; /x ETHERNET “SPECIFIC VALUES x/ 
= dlisheadersdien LITERALLY 414°, /x bytes in dll header */ 
= minsokt$len LITERALLY "46%, /* minimum total pkt len - bytes */ 
= max3segSdataslenSlit LITERALLY °1480°%, /* (1480) max no. of client bytes in seg */ 
= tcel$Sprotocoltcode LITERALLY "5001H’-/* OLLCONNECT user type field */ 
= tclfprotocolscodeSrev LITERALLY “°O150H’,/* packet header user type field */ 
= x fe Mise values */ 
= tcelSmipSport LITERALLY "4", /x mip port for IPSZINSMBX */ 
= logirbSmipSport ' LITERALLY ay /x debugging: mip port for logging */ 
= mipsechosport ' LITERALLY 77°, /* mip port of on-bd tcl echo sarver x/ 
= tcl$versionslit LITERALLY “101H’, /* Version of this TCL for seg header x/ 
= definet3sidSlit LITERALLY aie, /x default Network ID: "this network” */ 
= onSbdStcl3echoSport LITERALLY 7’, {/x TCL port of onctboard tcl echo server x*/ 
= true LITERALLY “OFFH’, 
= false LITERALLY "0°, 
= forever LITERALLY “WHILE true’, 
= TimeoutSincreaseSstate LITERALLY °1%, /* In this state the retransmission timeout 
= is rapidly increased */ 
= Timeout$steadysstate LITERALLY “0%; /* In this state the timeout is 
= slowly decreased. This should not be 
= changed, it is the initial state since 
= a cdb is intialised to zero */ 
SENDIF 
/x Some variables x/ 
3 1 DECLARE | /* note: externals are declared and dosumented 
in TSTART x/ 
leid3vector(*) WORD EXTERNAL, 
specStype (x) BYTE EXTERNAL, 
numicdhbs BYTE EXTERNAL, 
curimaxi3cdbs SYTE EXTERNAL, 
locSnet WORD EXTERNAL, 
locShost(3) WORD EXTERNAL, 
tcl$version WORD EXTERNAL, 
min$retranStime DWORD EXTERNAL, 
Retransincrease a dil io EXTERNAL? 
curScdbSindex BYTE, 
curscid WORD, : 
cdbsStried BYTE, 
match$tries 3YTE;, 
matchtcase BYTE, 
rogtimestamp - DWORD, J/*k temporary timestamp storage */ 


roSroundtrip DWORD, 


a 
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C(rpSroundtripslo-rpSroundtrip3hi) WORD ATCarpSroundtrip), 
retranSweight WORD EXTERNAL? /* weighting of old retransmit 
timeout relative to just~computed 
roundtrip, expressed as exponent of 
two: 24retransweight is real weight x/ 
tot3pktsérej WORD EXTERNAL, 
totSpktsSretran WORD EXTERNAL, 
totircvsbufsrej WORD EXTERNAL, 
badSehk3sum WORD EXTERNAL, 
ro _has_ack 3YTE, /x boolean for common test */ 
ro _has_fin BYTE, /* boolean for common test x*/ 
ro. STRUCTURE ( /x copy of the segment header fields for code spacex/ 
dlSsourced WORD, 
disSsourcet WORD, 
dlssourceed WORD, 
disStype WORD, 
tel3Sversion WORD, 
destdport WORD, 
sourcesport WORD, 
dest cid WORD, 
sourceScid WORD, 
segSseqsno WORD, 
segsackino WORD, 
segsdataslen WORD, 
ctl WORD, /x nonwbased copy of current rp.ctl */ 
checksum WORD) PUBLIC, /* public for asmS6 version of dlsource_eq_host */ 
SIF dbg 
SENDIF 
scratcn 3YTC,z 
SIF log 
SENDIF 
SIF f7 
SELSE 
SSAVE NOLIST INCLUDECSFT: TCLMBX.INC) 
DECLARE 
rps$p POINTER, /x Receive Packet */ 
roto WORD ATC8rp3p), 
rp BASED rpso /x Based on offset portion for code *x/ 
/* speed-up. Valid as long as segment */ 
/x pool is in same Data Segment as */ 
/x everything else. Probably will 


SIP te? 
SELSE 
SINCLUDE (CSF1:TCLSEG.INC) 


STRUCTURE ¢ 


change for the CXU version x*/ 


/* Cffset Chex/ 
kaosSmsgShdr POINTER, 
buf3Silen WORD, 


disdest(3) WORD, 


/x Q 
/x 4 
/x 6 


[KK RR KR RK KKK KR KK KK 

[xxx Sagment Format **/ 

[KKK KKK KKKK KKK KR RK RK / 

/x 11/15/81 */ 
dec) x/ 
OT ptr to link seg bufs */ 
47 # of bytes (dest addr thru last data bytes) */ 
/* DATA LINK FIELDS x/ 

6T data link destination */ 
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dlesource(€3) WORD, /x C = 12T data link source x*/ 
dl3stype WORD, /x¥ 12 = 18T */ 

{x TRANSPORT CONTROL FIELDS x/ 
tceliversion WORD, /* 14 = 20t Version number of sending TCL */ 
destS$port WORD, /x 16 = 22T x/ 
sourcetport WORD, /x 18 = 24T x/ 
dest3cid WORD, {x 14. .= 26T */ 
sourceScid WORD, /x 1C = 28T x/ 
segSseqs$no WORD, /k 1¢ = 30T */ 
segSack3no WORD, /x 20 = 32T x/ 
segpdatatlen WORD, /x 22 = 34T # segment data bytes:for pad */ 
ctl WORD, /x 24 = 36T subfields mapped out as: 

Creserved) bit, 8000H 
cks 2 (ba te 4000H 
ayt bit, 2000H 
acl< bit, 1000H 
syn bit, O800H 
fin bits 0400H 
eon bit, O0200H 
rst bits . 0100H 
Creserved) bits 0040H 
credit é bits OO3FH x / 
checksum WORD, /x 26 = 38T x/ 


hou bob no ob wu TH tt ob nb on bh bo tt bob tb mon op 


segidata(1) 3YTE) /* 28 = SAT segment data bytes, length unknown x*/ 


SENOIF 


/ 


sir f7 
SEL = 
SSAVE NOLIST INCLUDE (C:FI1:TCLSCF.INC) 
DECLARE 
cursdcdb$p POINTER, 


[RRR KEKKKKKKK KKK KEK KKK / 


/x*xx Conn Oata Base **/ 
[ RRKKKKKK KKK RRR KK KR KK / 


c¢ BASED curScdbip 


SIF f7 
ScLse 
SSAVE NOLIST INCLUDE (€:F7:TCLCODS8.INC) 
v 
SIF f7 
SELSE 
SSAVE NOLIST INCLUDE (€:F1:TCLCSO.INC) 
DECLARE 
irb3p POINTER, 
irb3o WORD ATCSirbSp), 
irb BASED irbSo 
Sie Ske | 
SELSE 
SINCLUDE C:F1:TCLIRB.INC) : 
STRUCTURE ¢ /x* TCL Tnternal Ragqguest Block (CIRB) format 03/01/81 */ 
emx$ptr POINTER, /x 0 for CMX to link mbx buffers */ 
type BYTE, fe & request code (same position as alarm ch type field) */ 
ediSindex ° BYTE, a edb index for above cid x*/ 
cid WORD) [x 6 CIO for this irb */ 
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/x & Total Length x/ 

DENDIF 

/ e 

lirbSp POINTER, 

lirbto wORD ATCALlirbde)- 

lirb BASED LlirbsSo 
SIF f7 
SELSE 
SINCLUDE Cr3FT:TLIRB.INC) 


/x 02/21/81 */ 
STRUCTURE (€ /* TCL Long Internal Request 8lock for RST segments. */ 
/x this should always match the order of these fields in seg */ 


cmx$ptr POINTER,/*x CMX field for mbx linkage */ 
type BYTE, [x 4 request code x*/. 
reason SYTE>, [xe 5 reason for the RST */ 
disdest (3) WORD, {x 6 dest host ID for the RST seg */ 
destSport WORD, /x C€ = 12t destination port for RST sag */ 
source$port WORD, /x = = 14 source port for RST seg */ 
destScid WORD, /‘* 10 = 16 dast cid for RST seg x/ 
source$cid WORD, /* 12 = 18 source cid for RST segment */ 
segSseqsno WORD, /x 14 = 20 seq no to go in RST segment */ 
sagSackino WORD) /x 16 22. es 
/x 18 = 24t Total Length x*/- 
SENDIF 
; 
SIF GY 
SELSE 
SINCLUDE. CeP1s TCLIRC.ING) 
[KKRRKKKKK KEK KKK KK KKK / 
, /xxx*e IRB Codes *«xx/ 
[KKK KER KR KKK RK KKK / 
/x IRB Function codes 07/10/81 x«/ 
DECLARE /x Constants for type code x*/ 
irb3sendsyn LITERALLY ’C’%, /x IP=>TP: send syn ctl seg */ 
irbSsendsynack LITERALLY °1%, J/* RP->TP: send synvack ctl segment x/ 
irbtsendfin LITERALLY ’°2°%, /* IP->TP: send a fin ctl segment */ 
irbSsendrst LITERALLY °3°, /x RP,IP->TP: send rst segment */ 
irbSsendcheck LITERALLY °4%, /% RP,-IP-TP->TP: try to send data */ 
irb3sandflag LITERALLY °5%, /* RP=>TP: send ctl (Ctdata is ok) */ 
irbStimewaitSto LITERALLY °6’%, /* RP=>TP: delete the cdh when timer expires */ 
irbsSaytStimer LITERALLY °7%, /* RP,IP->TP send Are~You-There signal */ 
irbsmax3code LITERALLY °7°%, /* highest code: change this if any new codes */ 
irbStimeoutSmask LITERALLY “’80H’%,/* bit is on for alarm ch’s on mbx */ 
irbtctlach3mask LITERALLY °40H’,/* bit is on for ctl alarm ach’s, not data */ 
irbSctlétimeoutimask LITERALLY “°OCOH’,/* control alarm mask combined */ 
irbSinvalidSmask LITERALLY °38H’-,/* mask of type buts that are not valid */ 
irb$typesmask LITERALLY “’QFH’,/* mask to check value of irb type */ 
irbtnull LITERALLY “OFFH’;/* null code for synsent handler *«/ 
SENOIF 
DECLARE 
rlhs3p POINTER, 
rlovip POINTER, 
rbs SASED rbsS$p 
SIF f7 


Sole 
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SINCLUDE CrFIsTCLRBS.INC) 


STRUCTUREC /* Request Block for TCL Standard reaquests 05/29/81 x*/ 
contents BYTE, /x Q flag: sendable data/signals here x/ 
credit BYTE, {x 4 receive but credit for this rb */ 
lastiseg WORD, /* 2 seq of last seg in RB x/ 
/x above 4 bytes hold KAOS ptr when RB on mbx) x*/ 
mipsSbufSbase POINTER, /*® 4 x/ 
nipslength WORD, /x & x/ 
mipSidsSid BYTE, /*® A = 10T x/ 
mipSownersdevsid BYTE, /* 2B = 11T */ 
internalSprocessSid WORD,/* C = 12T for failure handler, not SCL process ID */ 
raq BYTE, /x € = 14T Code for type of request */ 
res BYTE, /* F = 15T reponse code: ok or error type x/ 
rtn3mipSskt WORD, /* 10 = 16T return address: CMX mbx or MIP socket*/ 
link POINTER, /* 12 = 18T optional chain to another RBx/ 
CIO WORD, /x 16 = 22t returned by open processing */ 
first$seq: WORD, /x 18 = 24t reserved for TCL: seq of 1st seg in RB */ 
client $use WORD, /x 1A = 26t Reserved for client Use (SCL) x/ 
buf$len WORD, /x 10 = 28t total no of client data bytes */ 
num$biks BYTE, 7* 1— = 30t number of data blocks x/ 
1F = 31t start of Variable-length Buffer (this byte x/ 


vio BYTE) [x 
/x used only as symbolic ref for variable ptr ) */ 
[x Total Length x/ 


nN 
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ENDIF 


7 
rbv BASED rbvip (1) 
Sr te 
S2LSE 
SSAVE NOLIST INCLUDE C:F1:TCLRBV.INC) 
rd 
SP Ty 
SELSE 
SINCLUDE (C:F7:TCLRBC.INC) 
LR RKK KK KEKE KKK KKK KEK K/ 
[xxxk RB Codes x*xxx/ 
, [LREKKKKEKKKKRAKKEKKKRKEKE/ 
/x NOTE: These codes ara still subject to change! Use these values 
symbolically for minimum changes. x/ 


DECLARE f/x Request type codes in request blocks 09/26/81 x*/ 
onenasreq LITERALLY °0%, : 
openpsreaq LITERALLY °17, 
close$req LITERALLY ’2°%, 
status$req LITERALLY °37%, 
deftstatusSreq LITERALLY °47, 
sendireq LITERALLY <S“ 
sendSeom$req LITERALLY °6’, 
postfrbufsreq LITERALLY ’7°%, 
abortsreq LITERALLY °87, 
reqsmax LITERALLY °8’, /* must always equal max req no.*/ 


/x req values O-127 reserved for TCL x/ 


/* Response codes for R8’%s sent back to client */ 
/* All OK resp’s are odd: equals "true" in PLM x/ 
okSresp LITERALLY ’1’%, /* No errorv-req accepted */ 


a@~n af 


ok3som$3resp LITERALLY “3%, /* No errorcrevd buff has EOM x*/ 
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okSfin3resp LITERALLY °5°%, /* No err - Fin revd CRemote closa) */ 
okiclosed$resp LITERALLY °9%, /* No error - Connection is Closed */ 
/x Note: OK responses are designed to be OR’ed together 
to produce needed combinations, such as:OK/E0N/FIN = 7 x/ 


/x Al Error/Abnormal event resp’s are even : equals 
"false" in PLM x*/ 


invalidsregq LITERALLY ’27%, 
nosSresourcessresp LITERALEY "4"; 
unknownScid$Sresp LITERALLY °67%, 
buf$toosshort “LITERALLY °8%, J/k for status req */ 
illsgali3req LITERALLY °10°%, /* OAH tried to send after close x*/ 
locSahbort LITERALLY °12’%, /x OCH Local client issued abort */ 
remSabort LITERALLY °14’%, /* QEH Remote client issued abort */ 
LocStimeout LITERALLY °16%, /* 10H Local Abort timeout */ 
opensconflict LITERALLY °18%, /* 12H Tried open when matching one pending */ 
/x closeScomplete LITERALLY °18°%,x*/ /* 12H Close sequence completed (Not an error??? x*/ 
invalidSpointer LITERALLY ’20°%- /* 14H TCL got RB ptr or ptr in RB that is in TCL */ 
/x* alreadySclosed LITERALLY “%22’x/ /* 16H tried Post rbuf when stata=closed */ 
/xk reso values 0 - 127 reserved for TCL Cunless same meaning applies) */ 
SENDIF 
SIF f7 
SELSE 


SINCLUDE CsFTETCLRSC.INC) 
[KR KKK RIK KEIR KKK IKK KKK KR KKK KEKE / 
{xxx RST Segment Reason Codes *x*x/ 
[KK IKK KKK KKK KK RK KR KR KKK RK KKK / 
/x 11/23/81 x*/ 


DECLARE 
rstftoldédupl LITERALLY °4', /x apparent old duplicate seg revd */ 
rstSconnsSclosed LITERALLY “2°, /* CDB in closed state already */ 
rstSnosmatcn LITERALLY “3°, /xk non-SYN seg doesn’t natch any cid x*/ 
retSzeroSdest3cid LITERALLY "4", /* revd seg had illegal dest cid */ 
rstSsynsSrefused LITERALLY es sae /x rved syn didn’t match any open */ 
rst3client$abort LITERALLY "6°, /* local client aborted */ 
rstSillegalSack LITERALLY "T's /x ack not = 1 in synreceived */ 
rstSversion3mismatch LITERALLY ‘°87%3 /x Sender’s TCL version not compatible x«/ 

SENDIF 

7x External Procedure declarations */ 

setupicdh: PROCEDURECindexs cdbSp$o0) EXTERNAL? /* in TSTART x/ 


DECLARE index BYTE, cdbSp$o WORD, 
END setupsedbh, 


deleteScdb: PROCEDURE (CcdbSindex, cdbSp,-, rtn$code) EXTERNAL? /* In IP x/ 
DECLARE CedbSindex, rtntcode) BYTE, 
edb 3p POINTER, 
END deletesScdb; 


ists: PROCEDURE(C cdb3p-rtn$code) 8YTE EXTERNAL, /* in IP x/ 
RE rtn&Scods AYTE, 

cdl fp POINTER, 
END clearsSlists, 


chk$sumicalc: PROCEDURECseg$o0) WORD EXTERNALs /* in TCOM */ 
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BECLARE seqgso WORD; 
END chk 3sun$cale, 


checkdaytStimers: PROCEDURE CCdbSp) EXTERNAL, /*x in TP x/ 
DECLARE edbSp POINTER, 
END checktaytStimer, 


getSstatussinfo: PROCEDURECcdb3p, rbstp) BYTE EXTERNAL, /* in IP x/ 
DECLARE CedbSp, rbsfp) POINTER; 
END get3statussintfo,s 

search_lcid$vector: PROCEDURE(target) WORD EXTERNAL, /x in TCOM x/ 


DECLARE target WORD, 
END search_lcid$vector, 


gtomod464k: PROCEDURE(n-m) BYTE EXTERNAL; /x in TCOM x/ 
DECLARE Cnvm) WORD, 
END gt3mod64k, 


gedmodé6é4k: PROCEDURE Cn-m) BYTE EXTERNAL, /* in TCOM x/ 
DECLARE (nvm) WORD, 
ENQ geSmodo4dk, 


maxsmodé4k: PROCEDURE Cn-m) WORD EXTERNAL, /*x in TCOM x/ 
DECLARE (ne-m) WORDs © 
END maxSmod44k,; 


mins PROCEDURE(Cn,m) WORD EXTERNAL; /* in TCOM x/ 
DECLARE Cnsm) WORD; . 
END mins 


dlsource_aeq_host: PROCEDURE C(host$p) SYTE EXTERNAL? /x in TCOM x/ 
/x function to test the source host id 
field in received seg against supplied 
host ID. returns true(€matched)/false. x*/ 
DECLARE hostS$p POINTER, 
END dlsource_eq_host-, 


/x in IP x/ 
send$deferred$irbs: PROCEDURE CirbSindexso, irbSlist$o, cdbSindex, cid) EXTERNAL, 
DECLARE CirbSindaxso, irbSlist$o, cid) wORD, 
ccdbSincdex BYTE; 
END sendSdeferredtirhs, 


/x in IP x/ 
defarSirbstp: PROCEDURE(C type, cdbSp, irbSindex3o, irbdlist3o0) EXTERNAL, 


DECLARE type BYTE-, 
cdbSp POINTER, 
CirbSindexS$o, irbSlist$o) WORD; 


END defersirbS3tp- 


stky_iners PROCEDURE Cwd$p) EXTERNAL; : /* in tecom x*/ 
DECLARE wdSp POINTER, 
END stky_incr, 


SIF log 
SENDIF 
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SIF f7 

Deboe 

SSAVE NOLIST INCLUDE (:F1:KAOS,.9CP) 
SIF f7 

PELSE 

SSAVE NOLIST INCLUOE €sFTs0LL.0CP) 
ee me ed 

SELSE . 

SSAVE NOLIST INCLUDE (:F1:MIP.DCP) 
SIF f7 

cod CE 

SSAVE NOLIST INCLUDE CsF1:THACF.INC) 


SIF log 
tENDIF 


SIF log 
SENOIF 


DECLARE 
Ppsaarpslie: <3) 3YT= INITIAL COFFH-OFFH,OFFH), 
rpsirbSindex BYTE INITIAL(CQ)-, 
LKR KKK KKK KKK KKK KKK KKK KEK / 
/xxk rpsdefersirb$type **xx*/ 
LKR RK KKK KKK RR KKK RR KK / 


rpSdeferSirbstp: PROCEDURECtype), : 
DECLARE type BYTE? /x irb type to send */ 

CALL defersSirbStp (type, cursedbs$p, .rpSirbSindex, .rpSirbdslist); 
END rpS$deferSirbSts, 


LR KKK KK KKK KKK KKK KKEEKEK / 


xx clearScdbSalarms *x/ 
TLR KIRKE KKK KKK KER KKK KKK REE / 


ClearScdb3Salarms: PROCEDURE Cecatecdbtp) PUBLIC, 
/* shared code to kill both alarms in 
tne specified connection data base */ 


DECLARE 
ceoatedb3p POINTER, 
ccatec BASED ccasedb$p 
SIr 7 
SELSE 


SSAVeE NOLIST INCLUDE (€:F1:TCLCOD8.INC) 
, ; , 
CALL cqaqSclaarSalarm(accadc.datasSalarm$ch), 
CALL caSclearSalarm(Sccasc.ctlsalarm$ch)-,; 
if C€cca$c.dataSach3flaq=0) or (ccaSc.ctl$Sach$flag=0) then 
call Cahaltandcatchfire(9004h); 


/* clear the rer-tran timer 


END clearS$cdb3alarms, 
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x / 


/x kill the control timer */ 
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{xx tryStosdeletescdl  x*«x*xx/ 
[KK KEK KKK ERK KR RK KK RK KKK / 


tryStosdeletetcdh: PROCEDURE CttdicdbS$index, ttdicdbhip, respScode) PUBLIC, 


DECLARE 
ttd3cdbsindex BYTE, 
ttdscdb 3p POINTER, 
raspscode BYTE, 
ttdSc BASED ttd$ecdb$o 


/x common code for deleting a connection 
(if there is an RB to return) or putting 
it into the Closed state (to wait for 

an R38) if note x*/ 


/x mark it closed in case delete fails */ 
/x* Remove COB from match list */ 


Sir. tr 

SEL Se 

SSAVE NOLIST INCLUDE (:F1:TCLCD3. INC) 
7 

ttd3c.state = closed, 

spec$type Cttdscdb3sindex) = OFFH, 

ttdSc.closedSreason = raspScode, 


CALL clearScdbSalarms(ttdicdb3p); 


/* Save the reason why its deleted/closed */ 
/x kill both its alarms */ 


/* NOTE: need to re-do this and deleteScdb to eliminate overlap */ 


CALL deletetedhbCttdScdbfindex, 
END tryStosdelateticdh, 


IF clearSlists(ttd3ccdbSp, respScode) THEN /x send back all client’s RB’s */ 
ttdScdb3p, resp3code )- 


[KKK KKK KKK KK RK RK KE / 


/*x acceptsconn x/ 
[KKK KEKKK KEK KKK KKK / 


accept$conn: PROCEDURECstateScode, tpsreqtcode), 


DECLARE 


CstateScode, toS$reascode) BYTE; 


escode <> synrevd) OR 


et = locSnet; 


/x Fill in cdb fields from raceived */ 

/* segment in listen or synsent */ 

/* kill timers unless we are entering \ 
syn received state from syn sentz, AND the 
syn we just received doesn’t ack our 
previous syn. This attempts to take care 

of the case where our earlier SYN was 
rejected due to no matching cdb, but then 

he did an active open while we are doing 

a control timeout to rewmsend our syn.s */ 


¢ (rp_.segSack$no = 1) THEN 
LL clearScdbSalarms(curscdbip);, | 7x kill any active timers */ 
n 


/x Net ID not available from DL! x/ 


CALL MOVWC8rp_.dlsSsourced, 2c.rems$host(0), 3)7 %/* copy host ID into COB */ 


cearemfport = rp_.esourcesport, 
ceremScid = rp_.sourcescid, 
cehistecredit = rp_.actl AND credit3mask; 


camySackSno = rp_.asegSseqino, 


PAGE 
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cestate = statetcode, /x Put Connection Into New State x*/ 

SIF log 

SENDIF 
ecenosconfid = 0; /* reset the retries counter x«/ 
c.cumsretranscdw = Q, /* clear the cummulative retry time */ 
specstypeCcurscdbsindex) = spec3typelCcurS$cdbtindex) OR B80Hs /* remove from x*/ 


/x conn match list in a way that allows *x/ 
/* it to be added back if RST in syne-recvd */ 
/x state encounterd and we came from listen */ 
/* Now get an irb, tell TP what to send */ 
/x unless its null (from synsent) */ 
IF totreqscode <> irbSnull THEN CALL roSdefersirbStp(tpsreqscode), 
END accept3conn, 


LKKKKKKKKKKKKEK KKK KKK / 
/*xx sendSrst3reply */ 
[KKK EKKEKKKEKKAKK KKK / 
send3rsttreply: PROCEDURE CresasonScode); 
/x Tell Transmit Process to send an RST segment x/ 
/* in raply to a revd segment. Always checks x*/ 
/* that there is not an RST in current revd segs x*/ 
/* since it is never permissible to reply to an x*/ 
/* RST seg with an RST Ccauses infinite packat */ 
/* exchange between the two nodes). x/ 
DECLARE reasonScode 83YTE- . 


IF (rp_.ctl AND rstSmask) <> 0 THEN 
DO; 
SIF Log 
SENDIF 
RETURN, 
ENO; 
CALL cqaS$signal(.schedSlock); /x relinquish lock while we get buf */ 
lirb3Sp = ca$receive(.freeslirbSmbx)? 7 
CALL caSwaitsem(.schedSlock); /x now remacquire the lock x*/ 
lirb.type = irb$sendrst, 
lirb.reason = reasonscode, 
/x Copy the fields we need to send an 
RST reply into lirb. Fields in lirb 
are in same sequence and length as 
the needed seg header fields. Subtract 
5 from length for ptr and type. */ 
rp_sdlSsourced; , 
ro_.edlssourcetl,; 
rp_.dl3sourced2, 
rp _ssourceSport, 
ro_.sdest3port, 
rp_ssourcescid, 
rp_sdest$cid-, 
ro_asegsSack$no + 17 /* make it acceptable, not a duplicate */ 
ro_.asegtsaqino, 


lirb.dl3dest (0) 
lirb.dlSdast(1) 
lirb.dl3dest(2) 
lirb.edest$port 
lirb.sourceSport 
lirb.deastscid 
lirb.sourceS3cid 
lirb.seg$seaqtno 
lirb.segsackino 


CALL caSsend(.tp3mbx, lirbSp); 
END sandSrstSreply-, 


LKR KKK KK KK KKK KKK KK / 
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/xx astabtrst3chk3false x«/ 
[KKERKKK KEKE KK KKK KR KKK KR] 
220 1 estabirstSchkifalse: PROCEDURE BYTE; 
/* Function to check the received packet 
in a synchronized state (except SYN Revd) 
to close the connection if it contains a 
Reset flag x/ 


221 2 IF (ro_.ctl AND rst$mask) <> O THEN 
222 2 DO; /x set state, clr lists, clr alarms */ 
223 3 CALL tryfto$deletes$cdhbCcurscdb3index, curscdb3p, remsabort); 
BIF log 
SENDIF 
224 3 RETURN (Cfalsed; 
225 3 END, 
226 2 ELSE RETURN Ctrus); 
eer 2 END estabirstSchk$false; 
[RK KKK RR KK KKK KK] 
[xx put xf 
[KKK KKK KKK KK KR KKK] 
228 1 put: PROCEDURE; 
/x* This routine does full-up re-assembly of received segments 
into client’s recaive bufferss multiple segments will be stored 
into any number of buffers (€RB’°S) and blocks within those buffers 
contiguously, without regard for segment, block, or buffer 
boundariss. In addition, if there is insufficient receive buffer 
space to hold a segment, partial segments are accepted and saveds 
with the remainder of the segment being stored when additional 
receive buffer space is available. */ 
/x Note: this rerassembly policy acks received segents when they 
can be stored into client data buffers, rather than when the data 
is actually passed to the client’s return mailbox. This may have 
Significance at Abort times, if the remote client does an abort 
after having received an ACK of his Send data. The data may not 
have actually been sent to the local client yet, although he will 
get it when the abort is processad. Note that if the remote client 
sent an EOQM along with the last data message, then the local TCL 
WILL put it on the mailbox when it finishes processing the segment. 
xf 
229 2 DECLARE 
ctltbitsSpresent SYTER: 
ch3dataSp POINTER, /x current block data ptr */ 
cbSdata BASED ch$datasSp (1) BYTE, /* The client’s rev buffer array */ 
copyslen WORD, 
rosSlensleft WORD, 
put sriss3p POINTER, 
putirbvsps POINTER, 
putsrbs BASED put$rbssp 
LP OPS 
SELES 


SSAVE NOLIST oNCLUDE Cer TsT CL Rss «INC? 
"  ygputSrbv BASEO put$rbvip (1) 
Sir ff 
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/x ROUTINES FOR PUT */ 


04/23/82 


tell client there’s 


one */ 


[xk setupSnewsblk  *«*/ 
230 2 setupsnewSblk: PROCEDURE; 
/x ssts up the variables associated with a new block 
in a Request Block buffer. x/ 
231 3 IF ceacurblk3index < putSrbs.num3bliks THEN 
232 3 00; /x there’s really a blk there */ 
233 4 cech3datasSindex = 0; /x start storing in first byte */ 
234 4 cecurblkSlenSleft = putSrbv(c.ecurblkSindex).blkSlen, 
SIF mipform 
250 4 ch$data3Sp = caqtmipSgetbaddress( put3rbv(€c.curblkdindex) .blk3ptr)s 
SeLSt 
SENDIF 
236 4 END; 
237 3 EEot 
escurblk3lenSleft = O07 /x* no blk so no blk lan */ 
238 3 END setupSnewsblk, 
[KKK KKK RIK RK KKK KKK / 
/** sendSrbsSback *x/ 
239 2 sendSrbsSback: PROCEDURE CinsertS$ctlSbitssflag) BYTE, 
/x this routine is contained in PUT, it takes the top RB off 
the pechq and sends it back to the client. : ; 
If the received segment contains sequence-controlled control 
Signals (20M and FIN, currently) and the caller has indicated 
that such signals should be passed to the cliants the RB 
will be marked appropriately. A new RB is set up for receiving, 
if one is available. A "true" is returned if there was another 
RB, otherwise a "false" is returned. */ 
249 3 DECLARE insertSctl$bitsSflag BYTE; 
244 is putSrbs.resp = okfresp, 
242 3 IF inserttctl$bits3sflag THEN 
243 s D0; 
244 4 IF (rp_lectl AND eom3mask) <> QO THEN putSrbs.resp = okSeom$resps /* 
246 4 TF rp_has_fin THEN putSrbs.resp = put3rbs.resp OR okSfinSresp, 
248 4 =ND> 
249 3 ec.spebaqshdr = putSrbs.link, /x take top rb off the queue, insert 2nd 
250 3 puttrbs.elink = QF — /x always zero the link field x/ 
25% 5 Cemy$credit = c.amyScredit - put3rbs.cradit, /*x reduce my rev buf credit */ 
/* by the amount of segs in this RB */ 
252 3 CALL cassend(.bufsmiosmbx, psutsrbstp); 
253 3 cepchasbufscnt = c.apchaqsbuficnt - 17 
254 3 IF cepchasbufsent <> O THEN /*x* there’s another RB - set it up */ 
£55 3 007 
256 4 eecurbikSindex = OQ; /x start with first block in new buffer */ 
257 4 putsrbsSp = cepebashdr, 
258 4 putSrbv$o = Gout$rbs.vb-z 
259 4 CALL seatupSneuShblk, /* initialize the data ptrs, cnts */ 


an 


EOM 


xf 
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260 4 RETURNC( true), 
261 4 END; 
262 3 RETURNC false), /x returns false if no RB avail */ 
263 3 END sandirbsthback, 
264 2 getSnext3blik: PROCEDURECpktSempty) 8YTE- 
/* this routine tries to set up a new buffer 
block to copy into. If there are no more blocks 
in the current 88, it calls sendSrbsSback to get 
the next RB, if any. If there was a new block or 
RB, this routina returns "true"; if not, it 
returns "false" x*/ 
265 5 DECLARE 
pktSempty BYTE, /x flag: true if all data from pkt has been stored x/ 
266 3 ec ecurbikSindex = c.securblkSindex + 1, /*x bump the blk index to see if there’s another x*/ 
267 = IF cecurblkSindex >= put3rbs.s.numSblks THEN. /* if true, then no more blks in */ 
/x this rb-v so try to get a */ 
/x new RS x/ 
/*x A param of "false" => no EQM or FIN x/ 
/e in pkts a return of fasle => no more R85 */ 
268 3 RETURN CsendirbsSback (pkttempty AND ctl3bitsSporesent) ), 
269 3 ELSE 
DO; /x there’s another blk in this RB: set it up to */ 
270 4 CALL setup3newSblk; 
271 4 RETURN (true), 
272 4 END; 
273 3 END gettnextSblk- 
[x k*eKX Mainvrline code for PUT Kk kf 
/x first, check that segment seq no */ 
fx is expected value: without remassembly */ 
/x buffers, seg’s can only be stored in x/ 
/x strict sequence. x/ 
274 2 IF rp_.segSseatno <> Ce.amySacktnot+1) THEN 
2r5 2 DO; 
SIF log 
SENDIF 
276 3 RETURN, 
ere 5 END; 
273 2 ITF capchatbufScent = O THEN /x no buffers at all - don’t bother */ 
279 2 DO, /x unless its a FIN without data or other */ 
/* sequence~consuming controls-only EOM, now */ 
230 3 IF (rp_eseg$dataSlen <> 0) OR CCrpo_.zctl AND eom$mask) <> 0) THEN 
261 Su-* D0, /* bump the "no buf space” centr */ 
282 4 CALL stky_inerCa@c.rev$buf$Srejscnt), 
283 4 CALL stky_inecr(atot$revibufSrej); 
/x also record no of bytes outstanding */ 
284 4 IF c.rcevibytestconsumed = 0 THEN 
285 4 


c.pendingSrevédata = rp_.segsdataSlen; 
Sir Log 7 


mn 
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SENODIF 
286 4 RETURN: 
287 4 ENO; 
288 5 IF re_has_fin THEN /x its a lone FIN: we can ack that, since */ 
289 3 DO; /x it is "received" into the conn state */ 
290 4 camySackino = rp_.sasegSseqsno;z /* mark it acked for caller *x/ 
291 4 CALL rpSdeferfirbStpCirb3ssend3flag); /x tell tp to ACK it */ 
292 4 RETURN; 
293 4 END, 
294 3 RETURN; /x safety net - we shouldn’t get here */ 
295 3 ENDO; 
296 2 cependingtrevidata = QO; /x clear the "number of bytes undelivered cnt" */ 
/* Sat up "from" data variables x*/ 
297 2 rpslensleft = rp_.seg$dataSlen - c.erevsbytesS$consumed, /* # of bytes to ba copied from */ 
/x* seg - we may have stored some the last x/ 
298 2 etlsbits3present = (rp_.ctl AND eomSfinSmask) <> O07 /* note FIN implies EOM x/ 
. /x time the segment was sent to us (don’t ack until its all stored 
-) x/ 
/* set up "to" data variables */ 
299 Z putSrbsSp = cepebasShdr, /x fixed part of ptr to RB x/ 
300 2 put3rbvSp = SputSrbs.evb, /* variable part */ 
SIF mipform 
301 2 chidataSp = casmipsgettsaddress(€ put$rbvc.curblkSindex).bikSptr 7 /* Starting store address */ 
SELSE 
SENDIF 
302 2 DO foraver; /* now, go into the main loop trying to */ 
. /* copy receive data into client buffer blocks x/ 
303 3 copy$len = min(rp$lenSleft, c.acurblkSlensleft)s /* bytes of data we can copy this pass */ 
304 3 IF copy3len <> 0 THEN 
305 3 DO; 
/x Do the primary data move here x/ s 
/*x* NOTE: NEED TO SET HAROWARE ARBITRATOR FLAG FOR HIGH SPEED ON COMM BD x*/ 
306 4 CALL MOVWCSrp.segSdataCcercvsbytasSconsumed), 
| AchSdataCc.ch$dataSindex)s, copySlen/2); © 
/*x NOTE: THEN NEED TO CLEAR THE HAROWARE FLAG x/ 
/x see if we have an odd byte to move */ 
307 4 ITF copy$len THEN /* if truer then lsb of conylen is set, */ 
/x so there was an odd byte */ 
308 4 ch3dataCc.chS3datasindex + copySlen - 1) = 
ro.segsdata(c.revihbytes$consumed + copyslen - 1), 
/* now update all the offsets and counts */ 
309 4 cechSdataSindex = c.achSdataSindex + copySlen, /x the "to" offset */ 
310 4. —CercvSbytesSconsumed = carcvibytessSconsumed + copySlenz /* the "from" count */ 
311 4 put$rbs.bufslen = putSrbs.bufslen + copytlen, /* total bytes in this RB */ 
512 4 roslensleft = rpSlenSleft - copySlen- /* bytes remaining in revd seg. */ 
313 4 eecurblk3lentleft = c,.curblkSlendSleft - copySlens /* bytes remaining on rcv blk x*/ 
314 4 END; 
/x At this point, either rpsSlensleft or */ 
/x cacurblk$lenSleft MUST be zero. */ 
/* now see if we’re thru with this pkt */ 
Cd 3 IF rpSlenSleft = 0 THEN /* yes - markad the seq no ack-able */ 
316 3 DO; 
Str 4 carevibytestconsumed = 0; /* zero to start next sag x*/ 
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cemySackino = rp_.segsseaqino, /* mark the seq no to be acked */ 
CALL rpSdefersirbStpCirbssend$Sflag); /x tell tp to ACK it x*/ 


/x NOTE: consider delaying this ACK */ 

= /x later if it helps: maybe if revd pkt */ 
/* doesn’t have EQM, and my rev window <> O, x*/ 
/x and round-trip delay seems to be high. */ 


/* now see if we need to set up more buf */ 
/* space for naxt pktee.e will send RB back x/ 
/x if no more space in this RB, or if */ 
/* pkt had controls which force it to be x*/ 
/x returned. */ 
IF cecursSblkSlenSleft = Q THEN 
scratch = getSnext$blk (trues), /* param=true => pkt is emoty ~ */ 
/* ignore result since pkt empty */ 
ELSE IF ctltbhitsSpresent THEN 


scratch = sendSrbsSback(€true), /* EOM and empty pkt forces buffer to be returned */ 
RETURN, 
END; , 
/x If we get here, then c.ecurblkSlenSleft MUST be zero: */ 
ELSE /*x pkt not empty : want to store more data x/ 
DOs 
IF NOT qetbnextSblk(€false) THEN 
00; /x there isn’t any more rev buffer spaces so x/ 
/* note amount of bytes left in pkt and quit */ 
c.ependingirev$data = rp$lan$left, 
SIF log 
SENOIF 
RETURN, /* wait til retransmission and hope there’s more buffer space */ 
END, 
END, 
END, /x of forever loop */ 
ENO put, 


[KK I RR kk 
[xr complete */ 
[KK KKKKKKRKK KKK KK KKK KEK / 
complete: PROCEDURE Ctargetisegino); 
/x This routine tries to return ACK’d transmit buffers to the 
L6¢al client. It accepts A Sequence number, and attempts 
to removers, and return to the client, all cbhtq RB’s with data 
corresponding to the same or lower (modulo 64K) ssquence numbers. 
All sea’s in an RB must be less than or equal to the offered ona 
for the RB to be returned. Exception: Close R8’%s are not returned 
when Complete acks them, sinca they are held until the CD38 is 
deleted to simplify the client interface. The transmit R&B buf count 
is, however, zeroad at ack of Close to prevent the Transmit 
Process from sending it again. x*/ 


' DECLARE 
topsrbs3p POINTER, 
target tsegino WORD, 
topsrbs SASED topSrbssp 


SIF #7 
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SELSE 
SSAVE NOLIST INCLUDE (C:F1:TCLRBS.INC) 
; 


IF cechtqthbutsent = 0 THEN RETURN;- /* nothing to remove */ 
toptrbs3p = c.zchtashdr, 
DO WHILE gebmodé64k(target$seginor, topSrbs.lastisagq);, 


/* sand back the top RBS x/ 


topSrbs.reso = okSresp; 
IF topSrbs.req = closefreq THEN /* Its a Close RB - don’t send it back x/ 
DC; 
cechtaSbufSent = 07 /x force xmit RB count to zero x/ 
RETURN, 
END, 
cachtqthdr = topirbs.link, 
topirbs.s.link = Q-, /x always zero the link field */ 


CALL catsend({.bufdmiptmbx, topsrbssp)-, 


94/23/82 


IF (cachtqsbuftent := cechtqSbufScnt - 1) = QO THEN RETURN /* queue is empty */ 


toptrbssp = c.echtaqShdr, | 
END; 
END complete, 


BEJECT 


PAGE 
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[RRR KKK KKK KEK KR RK KEK / 

/x* getSround$Strip *«/ 

[KKK KKK KK RR RK / 
PROCEDURE, 


/x code~saver routine to compute the 
roundtrip time of the ack of our segments 
convert to setalarm time units, and clr 
the timed seq no «/ 


/* setSretran flag added to allow 

the initial open sequence roundtrip 
time to be computed even when it took 
just one retransmission */ 


/* The above flag is removed */ 


CALL caSreadtclock(.rpftimestamp) z 


cetimedSseqino 
rpgroundtrip = 


QO; /* clear it so TP knows it can be used*/ 


rpStimestamp - c.segstransStimesdw, 


/* if we had clock wrapmaround, then 
high-order bit of rpSroundtrip will be 

set (can test upper byte to see): if so 
then fix it by conplementing roundtrip. */ 


IF HIGHCHIGH(rpsroundtrip)) >= 0H THEN rpSroundtrip = - rpS$roundtrip, 


rpgreundtrip = 


/* multiply by 32 to get it to setalarm 

- timeunits, and multiply by 2 to make 
the retransmit time average out to twice 
the roundtrip time to avoid axtra sends */ 


SHL(rptroundtrip,6), /* works out to a shift left 6 */ 


/*x In order to adapt to sach of two cases (1-rcev buf is 
consistently posted just after the segment is sent, necessitation 
one ratransmission, 2@-long-haul networks where we occasionally 
get have a timeout value which is too low, resulting in 
saturation of the network until we reradapt higher), but 

avoid the retransmission timer growing exponentially due 

to having one retransmission of each data segry we want 

to take special action if there was exactly one timeout before 
the segemtn was acknowledged. In this caser we subtract the 
previous timeout value from the computed roundtrip time to 

get the time it took (discounting occasional packet loss) for 
the ACK of the second segment to arrive. This will result in 
the averags timeout going down. */ 


/x SO, if thers was exactly one retransmission, 

we subtract off the previous retranmsit 

timer value from the computed roundtrip timeout, except if 
the is the initial open sequence timingry in which cass 

we need to return an accurate value x*/ 


/* George’s algoritnm is further nodified - to special case in 
the above fashion for two retransmission - because this was 
the case with NDS-II. With 1000 bytes posted buffers the 
first packet was lost because the buffer was not posted in 
time and the 2nd retransmission is required because the first 
retransmission is not completely consumed and thus not acked 
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Rajesh Shah x/ 


/x 12/14 A completeley new algorithm is implemented - and 
is described in the procedure UpdateSretransmititimeout *x/ 


362 2 ENO getSroundstrip, 
[kk RK KK RR KK RK KK RK KR KK KR KK / 
/xk setSratranstimaout **/ 
[RRR KKK KK KARE KKK KK RK KKK KKK 
363 1 setSretranstimeout: PROCEDURE, 
/x routine to compute the round-trip 
segment time from the connection handshake, 
and set the connection’s retransmit timeout 
value accordingly */ 
364 2 CALL getSroundStrip, /* comoute the round trip time of ack */ 
/* now force retran time to the weighted x*/ 
365 - 2 ceretransto$dw = rpoSroundtrip;, /x roundtrip time just computed x«/ 
366 2 END setsreatranstimeout; 
LKKKKKKKKEKEKKKKKEKKEKKKEK/ 
/x updates$retranStimeout x*/ 
[KR RIK KKK KKK KKKKEKK KR KKK / 
367 1 updateSreatranStimeaout: PROCEDURE; 
LIK KK IKK KI KKK KI KKK KKK KKK KK IK I IK IKK TK IKK KK IKK KKK KKK KKK KKK RK KKK 
TCL Adaptive Retransmission Algorithm 
Rajesh Shah . Dec 12th 1981 


TCL’s retransmission timeout must be adapted to the conditions 
posed by the raceiver and the line. 


TCL will need to retransmit for one of the following three 
reasons: 


1. Gecassional vacket loss. 


ax The receiver does not post a receive’ buffer in time, 
s0 that when the packet arrives there are no receive 
buffers available to TCL. 


Sa The total number of bytes in the remaining receive 
buffers is less than the number of bytes in the packet 
being transmitted. 


Tne Retransmission Adaptation Algorithm must adapt the 
retransmission timeout to all the above three cases. 


For Occassional packet loss, the ideal retransmission timeout is 
little more than the roundtrip time of a packet. (Time the ack 
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of the packet arrives ~- time at which the packet was sent). 


Tf the packet is dropped because it arrived earlier than a 
raceive buffer was posted, the ideal retransmission time is the 
average time it takes for the receiver to post buffers. 


If the packet needs to be retransmitted because the receive 
buffer did not have sufficient bytes to completely consume a 
packet, the ideal retransmission time is again the time it 
would take the receiver to post the next buffer. 


The last situation is created both by posting buffers smaller 
than packet sizes (when full packats are expected) or by posting 
buffers larger than packet sizes in which cases the first few 


packets will be consumed immediately requiring no 
ratransmission, ancl the next packets will have to be 
retransmitted if the buffer size is not a multiple of packet 
e226. In the first case, each posted buffer will require n 


retransmissions where nis 1 + packet size / buffer size (some 
will require n-1 depending on boundary conditions). The second 
case requires m packets to be transmitted without 
retransmissions (not counting packet loss) and the mt1 th packet 
to be retansmitted once. 


The roundtrip time can be easily computed by time each segment 
and its ack, however it is necessary to make an estimate of the 
average time it takes the receiver between posting buffers, if 
ratransmission are necessary. 


The goal here is to 2Rpproximately reach the range and let the 
retransmission timeout oscillate in close viscinity. We 


attempt to reach closer to this timeout by the following 


procedure. 


Let us say that We detect that we are transmitting much =*more 
often than required (Cwe will discuss how to detect this). If 
this is the case, then increasing the retransmit timeout should 
reduca the nunber of retransmissions. We double the 
retransmission tinsout and see if the number of ratransmissions 
raduce. If we do than we are on the right track. We continue 
to double retransmission timeout until, the number o f 
retransmissions stop reducing. This implies that the 
retransmission timeout is larger than the time the receiver 
needs to post a buffer. Now when the number of retransmissions 
is constant we be optimistic and reduce the timeout by 12.5. It 
is easy to detect that we are transmitting too often. Since we 
are raducing by 12.5 when the number of retransmissions are 
constant, at some boundary the number of retransmission will 
double. Also if the receiver starts posting buffer more slowly 
now, the number of retransmissions will suddenly go up. Wes 
detect this by comparing out retransmissions with the previous 
number of retransmissions and if it has increased we go into a 
increassitimsoutsstata and stop when wae find the number of 
retransmissions cdo not decrease with increasing timeout. 


When there are no ratransmission we gradually take the timeout 
close to twice the roundtrip. time or do nothing at all to save 
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code and to save ourselves from dword integer arithmetic. 


The above discussion assumed that full size packets are being 
senta However the same arguments apply for any size packets. 


ROR RK KK KKK KR KKK KR RK KKK KKK KK KKK IK KKK KKK KKK KKK KKK KKK KKKKKKK KE KK KK / 


Incraeasesret: PROCEDURE, 
/x Code saver common procedure to Increase tha retransmission timeout 
Increase by 12.5% to 50% */ 


ceratransto$dwu = ceretranStoSdw + SHR Cc.aretranStosduw, RetranSincrease); 
end Increasetret, 


DecreasesSret: PROCEDURE, 


daclara OW dword-, 
(CDWSlodSw, DWShiSw) word AT Ca0W), 
C(OWSloSbyte, OWShisbyte) byte AT COIDW); 


/x Common prodecure to decrease retransmission time by 12.5 % x/ 
ceretransStoSdw = c.aretranStoftdwu - SHR Cc.retranStosdw, 3); 


/x If tne resulting timeout value is too sinmall then - the algoritm 
runs tne risk of failing - because at values where TCL’s compute 

tima becomes significant, reducing timeout does not increasa. 

number of retransmissions. Hence aA lower bound must be implemented. 
This value has been found by experience to be around 10 thousand 

200 ns clicks for Ethernet, more for DBP. 

If the timeout is found lower than this we make 

it twice the minimum and change the state to TimeoutSincrease state */ 


DW = ceretranstosdu, 


IF OWShisw = O AND DuWShitbyte < 40 THEN ODO; 
xx Note that 40 x 256 = 10k ** 
DWShiShbyte = 80, 
c.eretransStoSdw = DW; 
ceretransmitSstate = 
END; 


TimeoutSincreaseSstate; 


IF caretranstosdw < minSretranstimse THEN DO; 
ceretranStoSdw = SHL(min3SretranStime,1)-; 
c,retransmitsstate = Timeouttdincreaseasstate; 

 ENDs 
end DecreaseSret;, 


7x checks to see if the ack received applies 
to the segmant being timed Cif any). If so, 
updatas this connection’s retran timer.*/ 


/*x Also if there are no retransmissions then do not 
change the retransmission timeout. */ 
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379 2 IF cetimedSseastno = Q . 
380 Z or cenosconfid = QO THEN RETURN; 
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/* Note that the retansmit$Sstate is not modified and the the 
lastSnoSconfid is not replaced by O. This is done so that we compare 
current num of ratransmissions with the last time we had non zero 
retransmissions */ 


IF csaretransmitsstate = TimeoutSIncreasesstate THEN 900, 


IF C€Ceeno3confid + 1) < c.alast$no3confid or CcenoSconfid = Offffh) 
/*x Number of ratransmissions has decreased so continues to 
Increase the retransmission timeout. Note that a difference of 
1 is not considered significant - This also introduces hysteresis 
in the algorithm x«/ 


THEN CALL increaseSret, 
ELSE ODO; 
/x Change the retransmit state to Timeout$steadySstate - in this 
state it reduces every time by 12.5 %. Also reduce it now by 
12.45 % twice because increasing by 50% did not do any good x*/ 
CeretransmitS$state = TimeoutSSteadySstate, 


call decreasatret, 
call decreasat$ret; 


END; 
END, 
ELSE DC, /x It is steady state ~ changsa to increase state if the 
number of retransmissions have increased by more than 1 x*/ 
IF (c.enoSconfid > c.elast3neSconfid + 1) or canoSconfid = OTfffh 
THEN OG; 
ceretransmitSstate = TimeoutSincreaseSstate;s 
CALL IncreaseSreat, : 
END, 


ELSE call Decreassa3reat; 
ENDO; 


Celast3nosconfid = c.nosconfid-s 


END UndateSretranStimeout, 


[KKK KKK KK KKK KKK 


[xx rpsSerrsflow xx / 
[KKK RR KK KK RK KR RK KA K / 
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401 1 rogSerrsSflow: PROCEDURE; 


/x Established state logic - this is the 

receive side of the error and flow control 

algorithm, it is shared by several states */ 
402 (3 DECLARE 


l oldShisSacktno WORD, 
oldShis$credit WORD; 


403 2 IF rp_has lack THEN /x seg ack field is significant, so */ 

404 2 DQ; /x® process it.*/ 

405 3 IF geSmodé4k(rp_.~segSack3no, cehistack$no) THEN /x remote client */ 
/* may have ACKed some data = save credit */ 
/* info, since ack is not obsolete x/ 

406 3 DO; 

407 4 old$his$acktno = cahistsack$no, /* note current values for */ 

408 4 oldShisScredit = c.hisScredit, /x comparison below */ 

409 4 cehisScredit = (rp_.ctl AND credit3mask); /*x save remote credit */ 
/x if the seg actually acks some */ 
/x additional data, update our cdb. x/ 

410 4 IF gtBmod64k(rp_.segSack3no, c.ahisSackSno) THEN 

411 4 DO; | . 

412 5 cehis$ack$no = rp_.segSack3no-, 

413 5 CALL complete(c.hisSackino), /x take my acked xmit okts off the xmit queue */ 
/x now check if a seg we are timing was ackad - */ 

414 5 CALL updateSretransStimeouts /* if sor compute new timeout */ 


/x Since histackS$no changed, undate nxt */ 

/x saq no to send to ba one greater than */ 

/* highest one acked */ 

/* NOTE: compute it with segackno, since its the same 

value, and rp_.segsack$no is avail with fewer code bytes */ 
415 5 canext$transmit = maxSmodé4k€c.nextStransmit, rp_.sagsack3no + 1), 

/x Cancel data timer since we got an ack of top data */ 


416 5 CALL caSclear$alarm(ac.datafzalarmich); 
/x Now remstart it on the oldest remaining x/ 
/* xmit queue segment, if there is one. */ 


417 5 TF cachtaSbufSent <> O THEN 
418 5 DO; , | 
419 6 ecedataSachSirbStype = irbSsend$check OR irbStimeoutsmask, 
420 6 CALL caSsatSalarm(dce.edatasalarmich, .stp$mbx, 
high(c.eretranStoSdw), 
low € c.eretrandstoSdw)); 
424 6 =ND; . 
422 5 c.nosconfid = 0, /x reset the retry count */ 
423 5 cecumSretransSdw = O7/* clear the cummulative retry time */ 
424 5 END; 


/x* if there is still something on xmit 
queue and credit or ack info on remote guy 
has changed due to this revd segment, 
tell TP about ity in case it allows 
another seg to be sant x/ 
425 4 TF cechtqSbufSent <> O AND 
( €oldShisS$ackSno <> c.whisSack3no) OR 
Cold$ShisScredit <> c.whisscredit) ) 
426 4 THEN CALL roesdefersSirbStpoCirbSsend3check); 
ce? 
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END; 
/* Now send revd pkt to tha rev buff */ 
/x morvif there is text, EOM or FIN */ 
. /x to try to store it in client buf */ 
IF (rp_.segsdatailen <> 0) OR CCrp_.ctl AND eomdfin$mask) <> O) THEN CALL puts 


CALL checkSaytStimer(curtedbsp) z /x protect against remote guy dying */ 
END rpserrsflow, 


[KKK KK KK KKK RK KK RK RK / 


fee chk$deferred$Sstatus *x/ 
[RIKKI K KEK KKK RR KK KK RK KR  / 


chk3deferredsstatus: PROCEDURE CcdsS$cdb3o) PUBLIC; 
/x routine to check if there are any deferred 
status requests posted, and return them 
(with status info, if requested) to host 
client process */ 
DECLARE 
rbssp POINTER, 
edsSecdlbs3p POINTER, 
ros BASED rbstp 
SLE 47 
SELSE : 
POAVE NOLITST. GNCLUDE .(SFTsTCLRES sINC) 
_ & 
eds3ec BASED cdstcdbS$o 


Le OTe 


SELSE 
BSAVeE NCLIST INCLUDE (C:sF1:TCLCODOS.INC) 


f 


rbossp = cds3c.defSstatusso, /x* set up addrassing to top RBS x/ 
DQ WHILE rbsip <> 0, /x return all Cif any) def stat rb’s */ 

/*x* update list head to next RB, if anys *x/ 
cds3c.defSstatus$p = rbs.links /* or insert zero if this is the last one */ 
rbs,link = OQ, 
ros.resp = okSresp, 

/x send back status info if client asked for it */ 
IF rbs.anumSbilks <> 0 THEN rbs.eresp = getSstatussinfotCcdsScdbip, rbs3p)-, 

CALL cqSsend(.bufSmiptmbxs, rbssp); 
robs$p = cdsSc.adefSstatusSp, /* set up for next RB, if any x/ 


END; 
END chk$detferredSstatus, 


[RR KR KK RK KR KKK KK Re / 
/x* processSsegment **/ 
[RE KKK KERR KKK KK KR KK / 


processSsegment: PROCEDURE; 


restSof3finwait32: PROCEDURE, 
/* routine to handle the finwait2 state */ 
/* logic so that it can be shared with */ 
/x finwaitl if fwl goes to fue. x/ 
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IF rp_has_fin THEN 


00; : 
IF rp_.segsseaqtno = camysack3no THEN /x our Fin was ACKed so enter naw state */ 
D0; 
cestats = timewait, 
SIF log 
SENOIF 
/* now set timer for going to Closed state */ 
CALL clearScdbSalarms(curScdbSp), 
/* note we mark acb as ctl type for TP’s use */ 
cectlSachbSirbStypea = irbStimewaitSto OR 
. irbStimeout3Smask OR 
irbSctlacbSmask, 
/x set the 2 MSL timeout, anter closed state x/ 
/x when it expires - just waiting on rer-xmit */ 
/* of FIN from remote guy so the precfilter */ 
/x above can ack it again for him. Set it to x*/ 
/x bigger than retran somsatime x*/ 
CALL cq3sat3alarm(adc.ctl$alarmSch, wtp smbx, 
high(c.retranstosduw), 
low (CceretranStoSdw))-, 
ZNO; 
END; 


END restBof3finwaits2; 


{*x finSseqtno **/ 
fin$seqgdsno: PROCEOURE WORD, 
/* Used in Finwait1 and Closing state: returns the 
sequence number of the FIN associated with the local 
close which has already occured. Tricky because 
of possible states: (1) we may not yet have sent the 
FIN, either because there was a nonmzero xmit queue, 
or because a FIN may have arrived between the time IP 
enters FW1 and when TP bumps the highest-sent value; 
or (2) the FIN may have been sent (tne current revd 
pkt may or may not ack it), or (3) the FIN may already 
have been removed from the q because the current revd 
seg acked it, and the Complete routine above has taken 
it off the queue. */ 
DECLARE 
fsnSrbs3 POINTER, 


lil andl we! 


fsnsrbs BASED fsnSrbsS3p 


eo ae 

SELSE 

SSAVE NOLIST INCLUDE (:F1:TCLRBS.INC) 
; 

ITF cachtaqsbufsent = 0 THEN /x its case (3) - so highest sant must */ 
RETURNCcahighestSsent), /* have been our FIN’s seq no */ 

/x if we get here, its case (1) or (2). */ 
fsn3rbssp = c.echtaqshdr,; /x set up rbs ptr to search xmit q for Close req */ 
DO WHILE fsnirbs.req <> closeSreq, 

fsnirbstp = fsnirbs.link; /x not founds get next entry x/ 
ENO; 


RETURNC fsnSrbs.zlastSseq); /x last.seq is always correct, even if data */ 
/*x is sent along with close req x*/ 
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END finSseqtno, 


/x --->> Main Received Segnent Handler Logic in Receive Process <<--= x/ 


/x when we get here,s the cdh ptr has */ 
/* been set ups and the received pkt */ 


/x is in ro. xf 
curScid = leidSvector(curScdhbS$indexds, /* set common variable */ 
IF c.astate = listen THEN 
/x Listen x/ 
; /x In the listen state we have previously done 


a passive onens so we are waiting for a SYN seg 
from some remote TCL client. x/ 


DO, 
IF rp _.ectl = synSmask THEN 
00; 
CALL acceptSconn(synrevd OR fromSlisten,virbS$sendSsynack), 
END, ! 
RETURN, /x ignore any other packet = it can only be a 


delayed duplicate or an improper recuse of 
| connection ID x/ : 
END,s /*x of listen */ 


IF castate = synsent THEN 


/* Synsent */ 
/x In the synsent stata we have previously done 
an active opens, s0 we are waiting for a SYN ACK 
Crenly from remote passive open), an ACK Creply 
from remote active open whose own SYN hasn’t 
gotten here yet, either due to his SYN seg heing 
dropped, his SYN having been previously rejected 
by us Eso he’s in his timeout, waiting to re-try 
his SYNJ, or his SYN having been routed the long way 
around the net), or a SYN from ramote active 
opens sant about the time ours was. x/ 

00,7 

/x* The following test is to fix up a simultaneous 
active open oroblem, and resolves it by allowing 
TCL to save the remote guy’s ack no before we 
get his syn Cwhich only happens because his Syn 
was lost, and we get his ack of our Syn first, 
then receive his syn on a re-transmission. */ 


/* if it isn’t an RST, save the ack num */ 
{*e 29929222922977 #/ 


oe @ @ @ @ 8 @ 6 


IF (rp_.ctl AND rstack$mask) = ack3mask THEN cehisS$ackS$no = rp_»segsack$no; 


/x deciding what to do with the received x/ 
/x segment ... first see if its a */ 
/* response from a passive open cdh: */ 
(Crp_.ectl AND ctl$SbitsSmask) XOR synackSmask) = OQ THEN /x synvack are only ctl bits on */ 
DO; /x we got response to our syn- send */ 
CALL accepticonn(estab, irbSsenddflag); /* ack, anter estab state x/ 
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/* adaptive retry timeout computation: */ 
CALL setftretran$timeout, 


CALL chk3defarred$status (cur sedbip)-, /* send back def stat RB, if any */ 
CALL rpterrSflow, /x do astab processing in case */ 
RETURN; /x* there’s more stuff in packet */ 

END; 


{ke wee MOt aA pass Opn resp, see if its */ 
/x simultaneous active open: */ 
IF (Crp _ectl AND ctl$bits$mask) XOR synSmask) = 0 THEN 
DC; /k syn is only ctl bit ons */ 
IF cehissackSno = 1 THEN 
/x my syn has been acked at some point */ 
D0; 
CALL acceptS$connCestab, irbSsend$flag)- 
CALL chkS3deferred$status(cursScdb$p), 
ENO; 
ELSE . Jk my syn hasn’t been acked x/ 
CALL accept$conn(synrevd, irbssendSflag); 
‘RETURN, 
END; 
/* wae not a Simultansous active open, x/ 
/x* see if its a reset: x/ 
IF Crp _.ctl AND rst $mask) <> O THEN 
00; {/x my conn req was rejected x/ 
CALL clear3cdb3alarms(curS$cedb$p); /x kill timers */ 
IF Cce.bersistSenti=c.persist$entt1) <= c.apersist THEN 
/x* persist count not expired, so just */ 
/x ignore the refusals and schedule x/ 
DO, /x another SYN to be sent soon. x/ 
cectl3ach3irbStype = irbssendsyn OR irbStimeourtsmask 
OR irbSctlachS$mask-, 
CALL cqSsetSalarm(adc.ctlsalarmScbh, .wstpsmbx, 
high(€c.retranStosdw), low Cc.,retranstosdw)), 


END; 
ELSE 
DO; /x persist count expirdw), give up */ . 
CALL tryttosdeleta3scdb€curscdbSindex, cursgcdb3p, ramSabort)-, /*x set state, clr 
“lists, */ 
/x clr alarms */ 
SIF log 
SENDIF 
END; 
RETURN; 


/* not a reset~ sea if its an ack of my syn 
Cimplying that remote guy is doing simulta- 
neous opansy but his SYN hasn’t arrived yet) */ 
IF rplhas_ack THEN 
DO;s /x there’s an ack - if it appears to be for 
current connection, save all the info about 
remote guy. Note: using the accept$conn 
routine to do this, even though I don’t 
want TP to send anything now. x/ 
i IF (rp_.sea$seqtno = 1) AND (rp_.«segSackSno = 1) THEN 
D007 
CALL accept3conn(synsents irbSnull); 
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518 5 CALL setSretranStimeout, 
519 is) CNO; 
520 4 ELSE CALL sendSrst$reply(rst$old$dupl); 
521 4 RETURN, 
52e 4 END, 
gape: 3 RETURN; 
524 END; /*x of synsent x/ 
/* synrevd, estab, finwait-1- finwait-2- 
timerwait, closer-wait,s closings closed */ 
/x Filter out old duplicate segment sequence numbers that have been 
acknowledged, except that we must accept ACK control segments which 
are duplicates of the last segment, since they may carry new ACK and 
Window values. Note that if remote guy is only receiving data, he 
may never generate a new sequence number until he sends FIN. */ 
/x There are theraefore two tests for an acceptable packet at this stage: 
Case (1): Lone ACKs: if no data in seg and no sequence-consuming controls 
Ciwesr synvfinsrstrveom), only ack, the test is that the segment 
Sequence number is not older than the last one we acked: 
should have «ee rp_.esegSseqsno >= c.emySack$no 
Case (2): Otherwise (i.zewr Length <> 0 or other controls present), the test 
‘ais that the segment sequence number should be newer than the last 
one we acked: should have «es. rp_eseg$seqsSno > camySack$no 
CALL comparisons moculo 64K, of course, to account for sequence number 
wraparound) */ 
at /x Note: this test dsliberately lets thru outrof-sequence segments 
C(i.20er in the window, but some earlier ones have not been received) 
in order to allow the rerassembly routine tha freedom to use 
revrassembly buffers if it ever gets any ! x/ 
525 Ps IF ro_.~source$cid <> caremScid THEN /* Its not for this connection, so rejact it */ 
526 2 DO; 
527 3 CALL send3rst$reply(rsts$oldSdupl); 
528 3 RETURN, 
529 3 ENG; 
/x if remote guy sent an ArerYourThare */ 
/*x signal, force a reply to be sent */ 
530 2 IF (rp_.ectl AND aytSmask) <> QO THEN CALL rpSdeferSirbStpCirbSsendSflag); 
532 2 IF (rp _.seg3dataslan = O) /* no client data */ ed 
AND (€CCrp_.ectl AND ctl3bitsSmask) XOR ack$Smask) = Q) /* only ack bit on */ THEN 
533 Pa DO; /x Its case 1 x/ ; 
534 3 IF gedmod64k( rp_.segsseqsnor csmySackSno ) ; 
535 5 THEN GOTO accept3packet; 
536 3 ELSE GOTO reject3packet, 
at 3 END; 
538 zZ ELSE /x Its case 2 x*/ 
DQ; ; 
539 3 IF gtSmod64k(€ ro_.zsegsseqtno, camyd3ack3no ) 
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540 3 THEN GOTO accepntipnacket, 
541 3 ELSE GOTO rejacttpacket; 
542 3 END; 
543 2 rejectipacket: /x failed the sequence number filter - */ 
/x send an ACK segment with correct */ 
/* seq nov ack nos window */ 
SIF log 
SENOTE 
CALL rpSdeferSirbStpCirbssendtflag),; 
/x* Note pkt reject in conn and TCL total ctrs */ 
544 2 CALL stky_iner (dc.pktsSrej); 
545 2 CALL stky_iner (Stot$pktstrej), 
546 2 RETURN, . 
/x If we get this far, packet has passed CID and sequence number tests */ 
547 2 accept$packet: 
{k*XK*XCALL LogSaventllogSdispSworStext-1-acurtcid,36, 
aC’ Packet Accepted, CDB values follow: °%));**xx/ 
{**k*xXCALL Llogtbevent(Clogtdut,-11,adcamysackSno,SizE(cdb$label$string), 
acdbSlabelSstring) 7s *xxx/ 
/x Now process the received packst according to connection state */ 
DO CASECc.state AND statetmaskd), 
/x Listen - can’t get nere */ 
548 3 ? 
/x Syn sent - can’t get here */ 
549 3 ; 
/* Syn Received x/ 
550 5 DO; 
Dol 4 IF rp _haslack THEN 
Doe 4 DO; /x Only pkts with ACK are meaningful at this point - */ 
/x duplicates, ete were filtered out above */ 
D5 5 IF ro_.sactacktno = 1 THEN /* he acked our synvack */ 
554 5 00,7 
555 6 TF (rp_.ctl AND rst$Smask) = OQ THEN /* Its not an rsts, */ 
556 6 DO; /* so our synvack was acknowledged - */ 
/x adaptive retry timeout computation: */ 
557 7 CALL set$retranStimeout, 
558 rd CALL caSclear$alarm(dc.datasalarm3ch); 
559 7 castate = estab; | /* and enter Estab State */ 
SIF log : 
SENDIF 
560 7 canosSconfid = Q; /x reset retry count */ 
561 v4 c.cum$retrangduwu = 0, /x clear the cummulative retry time */ 
562 7 CALL chkSdeferred3Sstatus(curscecdbsp); 
Soo. oO CALL rpSerrSflow, /*x do estab processing x/ 


/* Now do FIN processing, in case a */ 
/x FIN accompanies the ACK Ccould be x*/ 
/x because renote client submitted */ 
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/x data/close before the last ack of x/ 
/x connect handshake went outs or */ 
/* because the first ack was lost, and */ 
/x the close was submitted befors the */ 
/x re-xmits or because the other TCL */ 
/x allows close before estab, but queues x*/ 
/x it. x/ 
IF rp_has_fin THEN 
/x We got Close request from remote client */ 


DQ, 
IF rp_.eseg3sseqtno = cemySacki3no THEN /x put routine acked it */ 
00,7 
cestate = clswait; /x enter closerwait state */ 
SIF Log 
SENDIF 
ENO+ 
END; 
END; 
ELSe 
D0; /x legal RST received-abort */ 
CALL clearScdbSalarms(curScdb3p), /x Kill all timers on this cdb*/ 
IF €c.state AND from$listen) <> O THEN 
00, . /* came from listenv-return to it */ 
/* put this edb back on match list x«/ 
spec3type(curscdb3sindex) = spec$type(curscdbSindex) AND 7FH, 
; canext$transmit = 1; | | 
ceState = listen, 
cecumSretransSdw = 0; /* clear the cummulative retry time */ 
c.aremscid = OO; fe clr rem cid so it won’t match on duplic 
mate chk x/ 
cehighest3sent = 0-7 
c.seen = 0-7 
cahissack3no = QO; 
camySack3no = OC, 
catimedSseqSno = Of 
cesendSflag = 0, 
canosconfid = 0; 
SLF lo9 
SENDIF 
RETURN, 
END; 
ELSe 
DO; /* came from synsentrabort */ 
/x sat state, clr lists, clr alarms */ 
CALL tryS3toSdeletescdb(curScdb$Sindex, curScdb3p, remS$abort), 
$IF log 
SENDIF 
RETURN, 
END; 
END, 
END; 
ELSE /x ack value was bad-send rst */ 


CALL sendSret$reply(rsttillegalSack); 
END, 
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596 4 END; /x of syn received processing */ 
/x tstablished */ 
599 3 IF estabtrstschk3false THEN 
600 3 DOs 
601 4 CALL roSerrSflow, 
/x do FIN processing */ 
602 4 IF rp _has_fin THEN 
/*x We got Close request from remote client x/ 
603 4 DO; 
604 5 IF rp_.segiseasno = camySack3no THEN /x put routine acked it */ 
605 5 DO; 
606 8 c.state = clswait, /* enter close~wait state */ 
SIP. 109 
SENDIF 
607 6 END; 
608 5 END; 
609 4 ZNO; 
/x Fin Wait 1 */ 
610 3 IF estabSrst$chkSfalsa THEN 
611 3 DO; : 
612 4 CALL rpSerrSflow, 
613 4 IF ro_has_ack AND (Crp_.zsegsacktno = fin$seqgno) THEN 
614 4 DO; /x our FIN has been acked */ 
615 5 cestate = finwaits2,; 
SIF log - 
SeENDIF 
616 > CALL rest3ofSfinwait$2; /*x shared code with finwait2 */ 
617 5 RETURN, 
618 5 =NO- 
619 4 IF rp_has_fin THEN /x We received a FIN from remote guy */ 
620 4 DO; 
621 5 TF rp_aseg$seqsno = cemySack Sno THEN 
622 5 DO; 
623 6 c.estate = closing, 
Sir log 
SENODIF 
624 fe) END; 
625 5 END; 
626 4 END; 


{x Fin wait 2 x*/ 


627 3 IF estabSrstS$chk3false THEN 

628 3 DO; 

629 4 CALL rpofSerrSflow, 

630 4 CALL restSofSfinwaits2, /x its a subroutine so that finwaitl code can use it */ 
631 4 ENDO; . 


/*x Time Wait «*/ 
DO;s 
tch = estabirst$chkSfalse,; 
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/x Nothing to do - we’re just keening the conn open in case */ 
/* a FIN gets rewtransmitted,s so we can sand an ACK in reply x/ 
/* to it. */ 
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634 4 END, 


/* Close Wait «/ 
/x Waiting on local client close, after having revd and Acked 
a FIN. If the FIN that put us here is recrtransmitted, the 
pre~filter will catch it and send an ack x/ 
ITF estabSrstSchkifalses THEN CALL rpSerriflow, 


655 3 
/* Closing x*/ 
637 $ DO; 
638 4 IF estab3rst3chk3false THEN 
639 4 DOs 
640 = CALL rpSerrsflow, 
041 5 IF rp has _ack AND (ro_.«segdack$no = fin$seq3no) THEN 
/*x Our Fin was acked- we can */ 
642 5 DO; /x anter closed to wait for ackrst */ 
643 fe) CALL tryStofdeleteSedbCcurSedbSindex, curscdb3p, okSclosed$resp), /*x* set state, clr list 
“sz, xf 
/* clr alarms */ 
SF. bog 
SENOIF 
644 6 END, 
645 5 END; 
646 4 ENDs 
/* Closed x*/ 
647 3 CALL sendirst$reply{(rst$connsclosed), /* cdb closed-so x*/ 
/* unless pkt is RSTv send x/ 
/*x back an RST x/ 
648 5 ENOs /* of case x/ 
649 2 END processssegmentz 
[KKK KKK KEK KKK KKK / 
[xk selfSconnect ak f 
[KKK KKK KKK KK KR KKK / 
650 1 self3connect: PROCEDURE BYTE; ; 
/x Subroutine for connect match and SYN x*/ 
/x* processing ~- detects case in which */ 
/x* a looptback pkt has matchad its */ 
/* own connection data base in order to */ 
/x disallow the match. Returns "true" if x«/ 
/x self-connect match is detected. */ 
651 2 IF (rp_.sourcesScid = c.eloc$cid) AND 
dlsource_eq_host(3locShost(0)) THEN 
652 2 RETURNCtrue)s/* trying to connect to self x/ 
653 2 ELSE RETURN Cfalse); 
654 Pd =NO selfSconnect, 
[KKK KKK KK KR KK KK RR 
, [xx connectimatch x*«x/ 
[OK ROK KO SO Ko | 
655 1 connectimatch: PROCEDURE Cselecti$case) BYTE-s 
656 2 DECLARE select3case BYTE; /x selects the type of test */ 
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/* mainctline code for connect match */ 
/* chk locport vs destport for all cases */ 


IF celoc3port <> ro_adestBport THEN RETURNC( false); 


D0 CASECselectScase); : 
/x Case QO: Fully specified Open, active or passive x/ 
IF Cce.remSport = rp_.sourcesport) AND 
dlsource_eq_host(ic.aremthost(Q) ) THEN 
00,7 
TF selfSconnect THEN RETURNC false); /* matched myself */ 
CALL process3segmnent, 
RETURNCtrua)d),s /x tell main loop we got a match x/ 
END; 


ELSe& RETURN( false), 


/x Case 1: Partially specified Passive Open (any remote host, specified port) */ 


IF (Cc.rem$port = rp_.sourceSport) THEN 
DO; 
IF selfSconnact THEN RETURNC false); /* matched myself */ 
CALL processSsagqment;s 
RETURNCtrue), /*x* tell main loop we got a match */ 
END, 


ELSE RETURNC false); 


/x Case 2: Unspecified Passive Open Cany remote hosts any port) */ 


D0; 
IF self$connact THEN RETURNC false); /* matched myself «/ 
CALL processSsegment, 
RETURN(trus), /* tell main loop we got a match x*/ 
ENO, 
END? /x of do case x/ 


END connectSmatch, 


[KKK KKK KK RK KKK KI] 
[eekk reveproc  *xxx/ 
LKRKKKKKKEEKKKEKKKRKKKKK 


rev$proc: PROCEDURE PUBLIC; 


/x This is TCL’s Reacsive Process (RP). It is declared to KAOS 
statically in the TCL KAOS objects macro file, called 

TCLGNL.~AS6, orTCLGEN.A8S- or even EPGEN.AS86, depending 

on the configuration being generated. | 


R° is the only thing in TCL that receives segments from Data Link, 
it always gives then back directly to Data Link (receive seg 
buffers are not held or sent to othe processes). The job of RP 

is to receive and process segments, and to update variables in the 
connection data base to indicate the progress of transmitted and 
received data and TCL connection states. RP cloes not. send 
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segmants directly, it sends short messages (called Internal 
Request Blocks, or IR8s) to the Transmit Process when a sagment 
needs to be sent Can ACK of data just received, for example). 

To cause a Reset (RST) segment to be sent RP sends an LIRB 

(Long IR8, ¢0 named because it holds more info than an IRB) to TP, 
The IRBs and LIRBs are obtained from free buffer lists called 
"freaSirbimbx"” and "freeSlirbsmbx", organized as KAOS mailboxes, 
and declared to KAOS the same way as RP, above». IR8s and LIRSs 
are sent only to TP, which is the only consumer of sames and who 
replaces them on the proper free buffer list. 


RP operates roughly as follows: wait for a seg to arrive, then 
acquires the TCL scheduler lock semaphore, to insure nonwminterference 
from the other TCL processes. Validate the checksum and version 
numbers then cdo the real processing: 

* for segs other than the initial SYN Cassumed to be the "normal" 
case), try to match the received seg up to its connection data base 
lby checking the destination Connection ID against the list of 

active CIDs in this node ("leid$Svector"”, declared in TSTART). 
Assuming there’s a match, it calls process$segments which implements 
the basic connection state machines, and eventually Conce the 
connection is establishad), calls the basic error and flow control 
subroutines. 

* for SYN-only segments, we first have to see if the seg is a dupliacte 
of a previous seg, then if it isn’tr we try to match it up with 

an open request, if any. We must attempt to match the most 
conpletely specified open requests first, then partially specified, 
than unspecified. Notes that it is necessary to check that the 
incoming request isn’t matching its own connection data hase 

for segments sent from and addressed to this node. Once wea 

have a match, processisegment is called to move thru the connection 
state machine. */ 


waitSforssegment: 


rosp 


cqtreceival.arpsmbx); 


CALL cqaSwaitsem(.schedSlock), /* acquire the cdb lock before proceeding */ 


SIF dbg 


Sau Le 


SIF log 


SENOIF 


CALL 


/x make a nonchbasad local copy of received 
segment hsader for code size and avoiding 
contention in static RAM. x/ 


MOVWCGro.dlSsource, Grp_.zdlSsourceQO, 14); 


/x set up booleans for frequent tests */ 


rp has_ack = (rp_.ctl AND ack3mask) <> O; 
rp_has_fin = (rp_.cti AND finSmask) <> O, 


IF chk3Ssum$calc(€rpSo) <> rp_.~checksum THEN 


SIF log 


PEND IF 


/x checksum calculation failed: */ 
CALL stky_inecr(adbad$chkSsum)-; 
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GOTO exittblock; /x throw away seg and give up semaphore x/ 
END, 
/*x* Teast to see that version number of the 
sending TCL is compatible ~- The lower order 
byte may differ. Hence 101h will talk to 
104h x/ 
IF (rp_.tel3version AND OFFOOH) <> (tclSversion AND OFFOOH) THEN 
D0; 
CALL send$rstbreply(rstiversion$mismatch); 
SOTO exitSblock, 
END, 
/*x preliminary validation done, now figure */ 
/x out what to do with the received sag. xs 
IF re_.ctl <> syn$mask THEN /x Its not a lone SYN, so its probably in reply x«/ 
DO, /* to something we sent - check dest cid */ 
IF rp_.adestScid <> O THEN /x validate CID if its legal */ 
DO; 
IF CcurtedbSindex:=search_lcidSvector(rp_.dest$cid)) <> QFFFFH THEN 
D0, > /* dest cid present, chk for match x/ 
CALL setupSedbCcurS$edb3Sindex, .ecurs$cdbSp), 
IF (ro_.sourceSport = c.erem$port) AND. 
C(rp_edest$Sport = c.eloc$port) THEN 
CALL process3segment; /x a match to existing cid */ 
ELSE CALL sendSrstSreply(rst$old$dupl); 
END; 
ELSE /* CID is not at this noda x*/ 
CALL sendSrstS3reply(rstSnoSmatch), 
ENO; = : 
ELSE CALL seandfrst$reply(rst3zerofdest3cid);,/*x Dest cid=0 is illagal for non-SYN x/ 
END; /*x of non-SYN processing */- . 
ELSE /*x Only SYN control bit is set, so */ 
/x Its a connect request: first, sae if x/ 
/x* its a duplicate of an earlier SYN x/ 
DO, 
D0 curtedbdindex = 0 TO curtmaxtedhs-17 /*x Check avery x/ 
IF leidSvector(curScdbSindex) <> 0 THEN /x allocated edb */ 
D0; 
CALL setupscdbhCcurScdbtindex, .zcurScdbs$p), 
IF Cce.ram$cid = rp_.sourceScid) AND 
dlsource_eq_host(ac.rem$host(0) ) AND 
NOT selfSconnect THEN 
DO; 
CALL process $segments 
GOTO exitSblock, 
END; 
END, 


END;s /* of iterative do */ 
/*x Wasn’t a duplicate SYN, so try to x*/ 
/* match it with a pending Open rag */ 
/x go thru all cdb’s up to 3 times, with */ 
/* matching criteria successively less strict */ 
DO match3case = 0 TO 27 /* matchcase=0=>fully speac’d, =1=> partially spec’d, x/ 
/x =2=> unspec’d x*/ ; 
/k Check every allocated cdb that is in an x/ 
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/x unwsynchronized state */ 


729 5 D0 curtcdbSindex = 0 TO curSmaxScdbhs-1, 
—6739 6 IF lcid3vector(curtcdbSindex) <> O AND 
soecStype (curscedbhbsindex) = match$case THEN /* FFH or highrworder */ 
/* bit set indicates not in list */ 
731 6 DO; /x found allocated and unsynchronized cdh*/ 
732 vd CALL setupScdbCcurfcdbSindex, .curSedisp); 


/* edb-try to match revd SYN x*/ 


733 7 IF connectsmatch(matchScase) THEN GOTO exit$Sblock; 
155 7 END; 
736 6 END, 
Ci 5 END; 
/x if we get here, there was no match */ 
738 4 CALL sendirstSreply(rst3syn$refused), 
739 4 END; 
740 is exitSblock: CALL caSdllErxtretSbuf(rposo), /* Give back the rev pkt buffer x/ 
SIF dig 
SENDIF 
741 S CALL cqtsignal(.sched3lock); 
/* now that we have released x*/ 
/x sched lock, send any deferred x/ 
/x irlb’s requested this time thru *«/ 
742 3 CALL sendideferred$irbs (.rpSirbSindex, .rpSirbSlist, curScdbSindex, curScid); 
743 3 END, /* of forever loop */ 
744 2] END reviprocs 
745 1 END rp, 
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CROSS“REFERENCE LISTING 
DEFN ADDR SIZE NAME, ATTRIBUTES, AND REFERENCES 
12 ABORT REG sy cesar vate ae LITERALLY ’8’ 
1€1 O0O94H 155° ACCEPTOCONN < -#  @ <a. « PROCEDURE STACK=0018H 474 484 494 497 517 
547 O9A2H RECEP TPACK ET: a %. oe ce Ww LABEL IN PROC CPROCESSSEGMENT) 5355. 540 
6 BG KMAS Kee ec a de ce oa Ga ce LITERALLY °1000H’ 480 532 6&9 
118 O000H 4 BBR MP re cg) Sta. ts, ee POINTER IN PROC C(CQSETALARM) PARAMETER 118 
124 000008 G RURRM PY a0. we Se ves cae Gee POINTER IN PROC (CQCLEARALARM) PARAMETER 124 
121 QOQ00H a ORR RE Ae ote. ek ek ee Se os POINTER IN PROC CCQCHECKALARM) PARAMETER 121 
115 OOOCH Bh: SR EMRIMP! we. de car a cor Sar a oe POINTER IN PROC (CCQCREATEALARM) PARAMETER 115 
6 AY TMASK «car a. ce. “ee Cw 42 Se LITERALLY *2000H’ 530 
3 QOGOH 2 SADCHKSUM. « « » «2 «2 « WORD EXTERNAL (13) 693 
4 Q00GH 2 BUPMIPMBX« « ao aoe WORD EXTERNAL (19) 252 349 442 
131 OQO00H €. "BWR Oe: ar whee ee. ae? Hae cae WORD IN PROC C(CQDLLRXRETBUF) PARAMETER 131 
12 SUFTCOSHORTs. < ©: la a % LITERALLY ’8’ 
~ OOOOH Wee Gog ee Se ee Ves ek te ae ee STRUCTURE BASEODCCURCDBP) 
QOO000H 1 STAT 2a a ee we we ae BYTE 191% 452% 470 478 547 %559* 568* 574 578* 606* 
615* 623* 
QQ01H 1 OWNERDEVICEs «: « « BY T= 
0002H é OWNERPROCESSTO .. WORD 
DOO4H 2 LOcCID . a ae WORD 651 
QOOQ6H 2 BOG POR] 6 ~<a aoe 4 WORD 657 708 
OOO08H 2 REANE TE &.ac-s- 2 a & WORD 185% 
OOOAH é REMHOS Fa: cere we we a WORD ARRAY (C3) 186 660 721 
001 0H. 2 ‘REMPORT «go Wo wo (6. Oe WORD 187x 660 668 708 
0012H 2 PERO LS Pa Bo ce cake WORD 503 
0014H 2 PAOR TIO Leo. Ja abe WORD : 
O0016H 2 DEC, eo san a, Sha Niet “es WORD 188* 525 580* 721 
0018H 4 RETRANTODW « 2 « 2 DWORD 365% 369% 369 372% $3372 %$373 #375* 420 455 506 
OO1CH 2 RESERVED « 2» «6 « « WORD. 
OO1EH Z TIEMEDS GQNO <> a © WORD 357* 379 585x 
0020H 4 SEGTRANSTIMEDW . . DWORD 358 
O024H 4 CUMRETRANOW. «2 « DWORD 193% 423% 561% 579* 
OO26H 2 PERSOESTONT ‘@ ce. a WORD 503% 503 
OQ28H & CBTQHO Rs) So sae A He, Oe POINTER 339 347% 352 463 
OO2EH 4 PCSORD Rw “aoe e “a POINTER 249% 257 299 
OC32H 4 DERSTATUSP se sa < vs POINTER 
OO36H 2 MY ACKNO 6 oo ce aw ee WORD 190* 274 290* 318% 450 534 539 566 5S84* 604 
6214 
Q0Q38H 2 SGN ie iar We. we la Mal, Re WORD 582x 
QO3AH 4 MYCREDAIT. a eee Sa BYTE 251% 251 
OO38H 1 CURSEKANDER«. ws BYTE 231 234 235 256* 266* 266 267 301 
OO3CH 2 CSDATAINUEX & <a . % WORD 233% 306 309* 309 
OO3EH 2 RCVSYTESCONSUNED , WORD 284 297 306 308 %310* $310 317* 
0040H 2 CURBEREENGEET © ~a +s WORD 234% 237% 303 %313* $3135 4320 
O042H 2 HISACKNG #6. a cer nay WORD 405 407 410 412% 413 425 481* 492 583% 
0C44H 2 NEXTTRANSMIT 2 « « WORD 475% 415 577* 
0046H 1 CLOSEDREASON wo aos BYTE 
00474 1 HISGCREDIT ae ae Ake EY TE 189* 408 409% 425 
0048nH eo MIGHESTSENTS: ao ws ws WORD 462 581% 
QOO04AH 1 CSTQCBUFOCNT ‘ea a 8 BYTE 337 344* 350* 350 417 425 461 
Q045H 1 PCSUBUPENT to: “a. 6 BYTE 253% 253 254 278 
OO4CH 2 PKTSRES « we & % 544 


WORD 
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CROSSTREFERENCE LISTING 
OO4EH 2 PKTSRETRAN «= «© « « WORD 
QC50H 2 NOCOMP LO: ee 6) neu 7 WORD 192x 379 383 392 399 422*x 560* 587 
0052H 2 LASTNOCONFID «4 4 « WORD 383 392 399% 
0054H 1 RETRANSMITSTATE. . BYTE 376*x 381 386x 394x 
OO55H 1 SENDP LAG: <5 we ces BYTE 586% 
OO56H 2 PENDINGRCVDATA . . WORD 285% 296* 329% 
OO58H 2 RCVSUFREJCNT « « « WORD 2&2 
QO5AdH 2 AYTCOUNT « «0 « « » WORD 
QOQ5CH 4 DATAALARMCB. « « » WORD ARRAY C2) 416 420 558 
OOS0H 1 DATAACSIR3STYPE . «a BYTE 419x 
OG61H 1 DATAACBFLAG. « « « BYTE 
O0062H 10 DATAACBREM «2 « « BYTE ARRAYC(1C) 
QO6CH 4 CTLALARMCB 2 « « « WORD ARRAY C2) 455 506 
OO70H 1 CTEACSIRGETYP Es. w. « BYTE 454* S505 
QO071H 1 CTLACBFLAG « «0 a By ne 
O072H ga, CT LACE REM. we 4: ses BYTE ARRAY (10) 
229 O000H 1 CBDATA 4 «6 «© » © @ 2 BYTe BASEDCCR8DATAP) ARRAYC1) IN PROC CPUT) 306 308 
229 OQS3EH & “CROAT A Pig ese: ae we, ei et Se POINTER IN PROC (PUT) 235% 301* 306 
166 O0Q00H 124. COAG eos Se ca cee ee wt STRUCTURE BASEDCCCACDBP) IN PROC C(CLEARCDSALARMS) 
OQO0H 1 STATE. «© « » «© «@ 28 BYTE 
OOO1H 1 OWNERDEVICE. a) os % BYTE 
O002H 2 OWNERPROCESSIO. . WORD 
OO04H 2 LOUCID: 2 we a &.% WORD 
OO06H 2 LOGPORT 6: a4: a0 a & WORD 
OO008H 2 REMNE Tae See wae we WORD 
QOOAH 6 REMHOST. « «© «© «8 28 WORD ARRAY (3) 
0O010H 2 REMPOR Te 6 «© @ 2-4 WORD 
0012H 2 PERS ITS Te. 0 Se We WORD 
0014H 2 RSORT BOW Dee sea-ice “os WORD 
0016H 2 REMCID « «© «© © «@ @ WORD 
0018H 4 RETRANTOOW 2. « « 2 DWORD 
Q01CH 2 RESERVED: wo ie cet em WORD 
QO1EH 2 TIMNEDSEQNO « « « « WORD 
O020H 4 SEGTRANSTIMEDW . . DwORD 
O024H 4 CUMRETRANOW. «© « DWORD 
O028H Z PER SIS TONT. -a- sc a-s WORD 
CO2AH 4: CSTONO Ri <8, se at er POINTER 
OO2EH 4 PCBOHDRs s 6 & cs ‘% POINTER 
0032H 4 DEFSTATUSP «4 « « 2 POINTER 
QOO36H 2 MYACKNOs « © «© « @ WORD 
OO38H re STEN 4.69 ew 4 > @ WORD 
OO3AH 4 MYCREDIT. we: wee Ce BYTE 
OO38H 4 CURBLKINDEX.» «© » « BYLe 
QOO3CH 2 CBDATAINOGE Xe we: 's WORD 
OGSEH Z RCVBYTESCONSUMED . WORD 
Q040H 2 CURBLKLENLEFTs «© « WORD 
0042H 2 HISAGKNO: a ew oe WORD 
Q044H 2 NEXTTRANSMIT . » WORD 
OO46H 1 “CLOSEDREASON «0 «= « SYTE 
OO047H 1 HISCREDIT.». « «0 «@ BYTE 
O0048H 2 HIGHESTSENTs. « e« « WORD 
QOO4AH 1 CBTOSUPCH T+ teas ss BYTE 
OO48H q PCBQSUFCNT 2. « « o BYTE 
QO4CH c PKTSREJs « «© 2 « » WORD 
OQ4EH 2 PKTSRETRAN « « « WORD 
QO590H 2 NOCONFLID « @ @ «.% WORD 


tA 


PL/NAS 


Oh), 


_ 
On 
Orn 


A Mm UW = UI eS 
AUP n~A me FO & =| im 


I~ 
il 
aE 


QO000H 
O000H 
O000H 
OO000H 
GOO00H 
OOOOH 
0000d 
OGOQQH 
OOSFH 
QO000H 
QOQOOH 
O001H 
OO002H 
0004H 
QOO06H 
O008H 
OO0AH 
0010H 
0012H 
0014H 
OO16H 
OO018H 
001CH 
OO1EH 
Q520H 
O024H 
OO025H 
O02AxH 
QO2EH 
O032H 
OO36H 
OO38H 
QC3AK 
QO3BH 
O0Q3CH 
QO3EH 
O040H 
0042H 
O044H 
O046K 


PFOA eS ROA a rN NW A@APLP 


12 


AMM MN MP APM RE EMPL MMM NAMM MAB EP NE EER FAO 


CCAC 


COBI 
Coat 
COBP 
CDBP 
CO3BP 
CDBP 
CD3P 
CDOBP 
CD3S 
Case 


LASTNOCONFiID . 


RETRANSMITSTATE 


SENDFLAG 2. « « 
PENDINGRCVDATS 
RCVBUFREJCNT . 
AYTCOUNT «2 « « 
DATAALARMCS. . 
DATAACBIRBTYPE 
DATAACSFLAG. . 
DATAACBREM . . 
CTLALARMCBR . . 
CTLACBIRSTYPE, 
CTLACBFLAG . . 
CTLACBREM. «© « 
DBP. 5s «6 « = « 


NODEX 
NDEX 


Os s a 
TRIED. « 


STATE. « « . 
OWNERDEVICE. . 
OWNERPROCESSID 
LOCCID . . 
LOCPORT. . 
REMNET « « 
REMHOST. « 
REMPORT. « 
PERSIST. « « « 
ABORTTOHI. . . 
REMCID « «2 «2 
RETRANTOOW .« « 
RESERVED «2 « « 
TIMEDSEQNO . . 
SEGTRANSTIMEOW 
CUMRETRANODW. . 
PERSISTCNT « . 
C8TQHDR. « « « 
PCBQHDR. « « « 
DEFSTATUSP « . 
MYACKNG. « « « 
SEEN « « «© «© « 
MYCREOIT . « « 
CUR3LKINDEX. . 
CBDATAINOEX. . 
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RCVBYTESCONSUMED 


CURBLKLENLEFT. 
HISACKNO . . . 
NEXTTRANSMIT . 
CLOSEBDREASON . 
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WORD 
i gm ie 
SY Le 
WORD 
WORD 
WORD 
WORD ARRAY (2) 
BYTE 

BYTE 169 
BYTE ARRAY (10) 
WORD ARRAY (C2) 
BYTE 

SY TE 169 
BYTE ARRAY (10) 
POINTER IN PROC (CLEARCOBALARMS) PARAMETER AUTOMATIC 
168 169 | 

BYTE IN 
BYTE IN 
POINTER 


167 


168 


PROC (CDELETECDB) PARAMETER 18 

PROC (SENDDEFERREDIR3S) PARAMETER 51 
IN PROC (CDELETECDB) PARAMETER 18 
POINTER IN PROC (GETSTATUSINFO) PARAMETER 30 
POINTER IN PROC (CDEFERIRBTP) PARAMETER: 54 
POINTER IN. PROC CCLEARLISTS) PARAMETER 21 
POINTER IN PROC CCHECKAYTTIMER) PARAMETER er 
WORD IN PROC CSETUPCDB) PARAMETER A 

BYTE 

STRUCTURE BASEDCCOSCDSP) IN PROC CCHKDEFERREDSTATUS) 
BYTE 
BYTE 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
DWORD 
WORD 
WORD 
DWORD 
DWORD, 
WORD 
POINTER 
POINTER 
POINTER 
WORD 
WORD 
BYTE 
BYTE 
wORD 
WORD 
WORD 
WORD 
WORD 
BYTE 


ARRAY (3) 


435 437* 443 
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HISCREDIT. 
HIGHESTSEN 
C3TQSUFCNT 
PCBQBUFCNT 
PKTSREJ. 
PKTSRETRAN 
NOCONFID . 
LASTNOCONF 


RETRANSMITSTATE 


SENDFLAS . 


LISTING 


T. 


ID 


PENDINGRCVDATA 


RCVBUFREJC 
AYTCOUNT . 
DATAALARMC 


DATAACBFLA 


DATAACBEREM 
CTLALARMC8 
CTLACBIRSTYPE 


CTLACBFLAG 
CTLACBREM. 
COSCD8P. « « s 


CHECKAYTTIMER. 
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PROCEDURE STACK=001 8H 430 

STRUCTURE BASEDCPUTRBSP) IN PROC (PUT) 

BYTe . 

BYTE 251 

WORD 


1Q9 


- POINTER 


WORD 

BYTS 

BYTE 

WORD 

BYTE . 

BYTE 241* (245% 
WORD \ 
POINTER 249 
WORD 

WORD a 
WORD ; 
WORD 
BYTE 231 
BY Ts 258 
POINTER IN PROC 
26r 299% 300° 3174 

STRUCTURE BASEDCPUTRBVP) ARRAYC1) IN PROC CPUT) 
POINTER ea5< 301 
WORD 234 

POINTER IN PROC CPUT) 
STRUCTURE BASEODCRBSP) 
BYTE 

BYTE 

WORD 

POINTER 

WORD 

BYTE 

Bye 

WORD 

BYTE 


247% 247 


250* 


311% 


231 247 249 251 


234 235 258* 300* 301 


oth Be Be 


WORD \ 
POINTER 

WORD 

WORD 

WORD 

WORD 

BYTE 

BYTE 

STRUCTURE BASEDCRBSP) IN 
oh a 

Sys 


PROC (CHKDEFERREDSTATUS) 


' WORD 


POINTER 
WORD 
Site 
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OQOBH 
OOOCH 
QOOEH 
QCQFH 
0010H 
Q012H 
0016H 
0018H 
O01AH 
O01CH 
OO1EH 
QOO1FH 
QOQO00H 
QO36H 
OO56H 


OOQCH 
OOO0H 
O004H 
OOQ3AH 
QC4CH 
0004H 
O986H 


O004H 


OB44H 
OO00H 
0000H 
O000H 
OCOOH 
O000H 
OOOGH 
0004H 
O006H 
OO0CH 
0012H 
O014H 
O016H 
0018H 
OO1AH 
OO1CH 
OO1EH 
0c20H 
0022H 
0024H 
0026H 
0028H 
O000H 
OO00H 
O69FH 
0063H 
0065H 
0044H 
OO0GH 
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MIPOWNERDEVID. 


TNTERNALPROCESS 


REQs « « 
RESP . . 
RTNMIPSKT 
LINK « « 
CID. . s 
FIRSTSEQ 
CLIENTUS: 
3UFLEN . 
NUMBLKS. 
VB « «2 es 


BLKLEN 
RBVP 2 a 2 
RCVPROC. «2 o 
REASONCOOE . 
REJECTPACKET 


REMABORT . . 
REQMAX . . . 
RESPCODE *. . 
RESTOFFINWAIT2 
RETRANINCREASE 
RETRANWEIGHT . 
RETURNBUFP .« -« 
RETURNBUFP 4. . 
RP « 6 « e 
KAOSMSSHOR 
BUFLEN . . 
DLDEST . » 
DLSOURCE . 
Oi Ur S 0% 24 
TCLVERSTION 
DESTPORT . 
SOURCEPORT 
DES LELOD =: « 
SOURCECIO. 
SEGSEQNO ., 
SEGACKNO . 
SEGDATALEN 
CTL. aw ow 
CHECKSUM . 
SEGDATA. . 
RP 2 2 «© © 2 » 
RPDEFERIRBTP 
KPERRFLOWs « 
RPTRBINDEX . 
RPIRBLIST. « 
RPLENLEFT. .« 
RPMBXe. «0 «© e 
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BYTE 
WORD 
BYTE 
BYTE 439% 441% 
WORD 
POINTER 437 438 
WORD 
WORD 
WORD 
WORD 
BYTE 440 
BYTE 
POINTER IN PROC (GETSTATUSINFO) PARAMETER 30 
POINTER 
POINTER IN PROC (CCHKDEFERREDSTATUS) 435% 436 437 440 441 
442 443% 
STRUCTURE BASEDCRBVP) ARRAY C1) 
POINTER 
WORD 
POINTER 
PROCEDURE PUBLIC STACK=002AH 
BYTE IN PROC CSENORSTREPLY) PARAMETER AUTOMATIC 199 208 
LASEL IN PROC CPROCESSSEGMENT) 536 5414 
LITERALLY °147’ 223 509 531 
LITERALLY °8% 
BYTE IN PROC CTRYTODELETECDB) PARAMETER AUTOMATIC 1735 174 
178 179 
PROCEDURE IN PROC (PROCESSSEGNENT) STACK=0010H §16 630. 
BYTE EXTERNAL (C8) 369 
WORD EXTERNAL(C9) 
POINTER IN PROC (CQDLLREADC) PARAMETER 139 
POINTER IN PROC (CCQDLLREAD) PARAMETER 136 
STRUCTURE BASEDCRPO) 
POINTER 
WORD 
WORD ARRAYC3) 
WORD ARRAY C3) 688 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
BYTE ARRAY (C1) 304 308 
PROCEDURE STACK=0000H 
PROCEDURE STACK=0010H 196 291 319 426 531 543 
PROCEDURE STACK=001CH 487 563 601 612 629 636 640 
BYTE INITIAL 163 742 
BYTE ARRAYC3) INITIAL 163 742 
WORD IN PROC CPUT) 29C% 503 B7e2%~St2 315. S29 
WORD EXTERNAL(15) 586 
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0026H 
0025H 
O006H 
0008H 
0006H 
0002H 
OOOAH 
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0002H 
0004H 
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0010H 
0012H 
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RPOe 6.0. ~m 
Re ick cle: ig Ieee 
RPROUNDTRIP.« « 
RPROUNDTRIPHI. 
RPROUNDTRIPLO. 
RPTIMESTAMP. . 
RE sk! ire te 8 
OLSOURCEO. 
DLSOURC#1. 
DLSOURCE2. 
DLTYPE . . 
TCLYERSION 
DESTPORT . 
SOURCEPORT 
OESTCIO. . 
SOURCECID. « « 
SEGSEQNO . . 


SEGACKNO . « « 


SEGDATALEN .« . 
CTL. a a a s s 


CHECKSUM . . 
RP_HAS_ACK . 4. 
RP_HAS_FIN « a « 
RSTACKMASK « « « 
RSTCLIENTABORT . 
RSTCONNCLOSED. . 
RSTILLEGALACK. . 
RSTHASKs a. = & % 
RSTNOMATCH « « « 
RSTOLDDUPL « « 
RSTSYNREFUSED. . 
RSTVERSTONMISMNATC 
RSTZERODESTCID . 
RTNCODES -¢. 4.x « 
RTNCODE. « « « 
SCHEDLOCK. «2 a. 
SC OATH sn ewes 
SEARCH_LCIDVECTO 
SECO: sea Ie Se Ve 
SELECTCASE . 
SELFCONNECT. 
SEMAPHOREO . 
SEMAPHOREO . 
SEMAPHOREO . 


ee «© ® F8® 8 se #8 #8 8 ®& »@ 8 8 © 


SEMAPHOREO 
SEMAPHOREO 
SEMAPHOREO . 
SENDDEFERREDI 
SENDEOMREQ . 
SENDRSSBACK, 
SENDREQ. « ss 
SENDRSTREPLY. 
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LLNA Transnort Control Layer 
CROSS“REFERENCE 
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WORD AT 306 308 688 691 740 
POINTER 5) = 686% 

DWORD 35 358* 359 360x 360 361% 

WORD AT 

WORD A 

DWORD 596-. 55:8 

STRUCTURE PUBLIC 

WORD 186 209 688 

WORD 210 

WORD 211 

WORD 

WORD 696 

WORD 213 657 708 

WORD 187 212 660 668 708 

WORD 215 703 705 

WORD 188 214 525 651 £721 

WORD 190 217 274 290 318 450 515 
604 621 

WORD 183 216 405 410 412 415 481 
641 

WORD 280 285 297 429 532 

WORD 189 200 221 244 280 298 409 
482 490 500 530 532 555 689 690 701 
WORD 691 

BY LE 403 513 551 613 £4641 689% 
BYTE 246 288 448 564 602 619 690 
LITERALLY °1100H’% 480 

LITERALLY °67’ 

LITERALLY %2’ 647 

LITERALLY ’7’ 596 

LITERALLY *0100H’ 200 221 500 555 
LITERALLY °3’ 712 

LITERALLY °17% S20 <S2¢°> “710 
LITERALLY *57% 738 

LITERALLY 787’ 698 

LITERALLY “47 a 714 

BYTE IN PROC CCLEARLISTS) PARAMETER 21 
BYTE IN PROC CDELETECD8) PARAMETER 18 
WORD EXTERNAL (20) 204 206 687 741 
BYTE 321* 323% 633% 

PROCEDURE WORD EXTERNAL(27) STACK=COQ00H 

WORD IN PROC CCHKSUMCALC) PARAMETER 24 


BYTE IN PROC CCONNECTMATCH) PARAMETER AUTOMATIC 


PROCEDURE BYTE STACK=CO0C8H 662 670 
WORDS IN PROC C(CQICWAIT) PARAMETER 103 
WORD IN PROC CCQISIGNAL) PARAMETER 100 
WORD IN PROC (CQCWAIT) PARAMETER 82 
WORD IN PROC (CQWAITSEM) PARAMETER (9 
WORD IN PROC (CCQSIGNAL) PARAMETER 16 
WORD IN PROC CCQCREATESEMAPHORE) PARAMETER 
PROCEDURE EXTERNAL C33) STACK=O00090H 742 
LITERALLY “6” 

PROCEDURE 3YTE IN PROC (PUT) STACK=OO00EH 
LITERALLY“ 5:* 

PROCEDURE STACK=O00CH 520 S27 596 
(14 738 


04/23/82 
361 365 
254 339 366 
Sto Ooo “Ohs 
429 472 480 
* 
105 
656 6 
677 721 
a3 
268 323 
647 698 710 
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CROSS-REFERENCE LISTING 


363 0590H 27 SETRETRANTIMEOUT .. « PROCEDURE STACK=000AH 485 518 557 
14 OQ0O00H SETUPCDB 2 « « «© »@ © 2 PROCEDURE EXTERNAL(C21) STACK=0000H TOC Ve20.. 752 - 
230. -U373H 89 SETUPNEW3SL Ks. « «2 «© © PROCEDURE IN PROC (PUT) STACK=0008H 252 “2ro 
SHLe 2 2 «© © © 2 @ 8 BUILTIN SON 35 
SHRe «© © «© «© © © © 8 8 BUILTIN 5369 Sf2 
145 CQO0H 2 SOCKET © ws «© © © © © WORD IN PROC CCQMIPSEND) PARAMETER 145 
3 OCQOH * “SPECTY PE a. aca a we te BYTE ARRAYCO) EXTERNAL(1) 175% 194% 194 576*x 576 730 
7Q0 QO0OOH 2 STACKO »« «© « «© «© «© «© WORD IN PROC (CQCREATEPROCESS) PARAMETER 70. 
182 CO0QO6H 1 STATECODE. «2 «2 «© » @ BYTE IN PROC -CACCEPTCONN) PARAMETER AUTOMATIC 182 183 191 
8 STATEMASK. « «© « © @ LITERALLY ’OFH’ 547 
12 STATUSREQ. «© «© © «© «@ LITERALLY "3" 
56 Q000H STKYLINCR. «© «© «© «2 @ 2 PROCEDURE EXTERNAL(35) STACK=O000H 282 283 544 5345 693 
6 SYNACKMASK . « «© «© « « LITERALLY *1800H’ 4820 
6 SYNMASK. « © «© © «2 © « LITERALLY “0O800H’ 472 490 701 
8 SYNRCVD. «2 2 2 2» «© @ «2 LITERALLY °2° 183 474 497 
8 SYNSENT. «© «© «© «© © «© 2 NG cao i Seas La 478 517 | 
33 OOOOH 2 TARGET « « © © © «@ 2 «@ WORD IN PROC (SEARCH _LCIDVECTOR) PARAMETER oo 
336 Q004H € TARGETSEGNO. «© « «© © « WORD IN PROC CCOMPLETE) PARAMETER AUTOMATIC 330° 340 
2 TCLHEADERLEN » «2 « «© « LITERALLY *20’ 
2 TCLMIPPORT .« 2 « © 2 « LITERALLY °4°’ 
2 TCLPROTOCOLCODE. . « . LITERALLY *5C01H’ 
2 TCLPROTOCOLCODEREV. . LITERALLY ’0O150H’ 
> OCOGH 2 TCLVERSION . « «0 « «@ WORD EXTERNALC6) 696 
2 TCLVERSIONLIT. «© « « « LITERALLY *101H’ 
2 TIMEQUTINCREASESTATE . CT TPER ALLY 4" 376 381 394 
2 TIMEQUTSTEADYSTATE . . LITERALLY “0” 386 
8 TIMEWAIT « 2 2 © = © LITERALLY °67% 452 
336 QOQ0QH 32 TOPRBS « « «© 5s «© «© «& « STRUCTURE BASEDCTOPRBSP) IN PROC (COMPLETE) 
O000H 1 CONTENTS «2 « 2 © BYTE 
O001H 1 CREDIT « » « =» © « BYTE 
ODQ02H 2 LASTSEQ. « 5» » « « WORD 340 
0004H 4 MIPBUFBASE 2. « «2 « POINTER 
Q008H 2 MIPLENGTH. «© « « 6 WORD 
QO0AH 1 MIPIOSIO « » » «© s BYTE 
0008H 1 MIPOWNERDEVID. «2 BYTE 
GOOCH Q INTERNALPROCESSTIO. WORD 
OOOEH 1 REG. 2 «@ 2 « 2 BYTE 342 
OOQFH 1 RESP «© «© « © 8 «@ 2 BYTE 341% 
COTO Hs 2 RTNMIPSKT.« « «© «© « WORD 
0012¢H 4 LINK »« « «© «2 « «© « POINTER 347 348% 
OO16H 2 CID. «» 2 © w@ © 2 WORD 
O01@H 2 FIRSTSEQ . « © «@ « WORD 
OC1TAH 2 CLIENTUSE. « « « « WORD 
001CH 2 BUFLEN « « «© «8 « « WORD 
OO1EH 1 NUMBLKS. 2 « 2 2 SY Te 
O01FH 1 VB « 2 © © a 8 2 SYTE 
336 O0O4EH 4 TOPRBSP. «2 «» «© » © «@ «@ POINTER IN PROC (COMPLETE) 339* 340 342 347 349 352 
3 OQ000n 2 TOTPKTSREJ «© « « 2» «© WORD EXTERNAL (10) 545 
3 CO00OH 2 TOTPKTSRETRAN« «2 «0 «@ « WORD EXTERNAL (11) 
3 QUQ00H 2 TOTRCVBUFRES «2 « 2 «@ WORD EXTERNAL (12) 283 = 
& Q0QOO0H 2 TPMBX. « 2 « © 2» © © WORD EXTERNALC14) 218 420 455 506 
182 0004H 1 TPREQCODE. «2 © « © «@ BYTE IN PROC CACCEPTCONN) PARAMETER AUTOMATIC 162 95 196 
2 TRUE « 2 @ 2 © © ow LITERALLY °ORFH* peo 260° ert S02 321 323s 632) 665 
673 680 685 of, 
172 QQ50H O86 TRYTODELETECOS: te el as PROCEDURE PUBLIC STACK=0018H 224 a0? . 594. 643 
173 O000H 124 TTOC .« «© «5 «© © © » 2 STRUCTURE BASEDCTTDCD3P) IN PROC CTRYTODELETECDSB) 
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QCOCH 
OO001H 
0002H 
00904H 
OO06H 
OQ008H 
OOOAH 
0010H 
0012H 
O0014H 
O016H 
0018H 
OO01CH 
QO1EH 
OG20H 
0024H 
0028H 
OO2AH 
COZEH 
QO032H 
OO36H 
OO38H 
OC3AH 
0033H 
OO3CH 
OO3EH 
0040H 
OO042H 
0044H 
Q046H 
0047H 
OO48H 
OOQ4AH 
0048H 
OO4CH 
QO4EH 
OO50H 
0052H 
0054H 
OO55H 
OO56H 
0055H 
OO5AH 
OOS5SCH 
O0050H 
QOO061H 
0062H 
OO6CH 
O970H 
0071H 
0072H 
OGOAH 
O006H 
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CROSS“REFERENCE LISTING 
SGA TG le a we “eee -% BYTE 174x— 
OWNEROEVTCE sw a. BYTE 
OWNERPROCESSID « « WORD 
LOCCID: 6 tte we WORD 
LOGE ORT] «a. “sce. 5, WORD 
RGN ED te en fet oe oe Me WORD 
REMAOST se: esa we 4 WORD ARRAYC3) 
REMPOR Tw <e e owe cer WORD 
PERS TS Te: <a oa. fe: ar - ie WORD 
ABORTTOHI.s « «© = « WORD 
REMC LO! sec Ge Sere ee WORD 
RETRANTODW 2. « « « DWORD 
RESERVED « »« © «8 WORD 
TIMEDSEQNO » « « WORD 
SEGTRANSTIMEDW . . OWORD 
CUMRETRANDW. « « « DWORD 
PERSISTCNT « «© «# “« WORD 
CaTOHDR.: 0: 2: 2° wi “e POINTER 
PCBQHDR. « «© 2 « POINTER 
DEFSTATUSP .« « « e POINTER 
MYACKNO. . a ae WORD 
SEEN oa ae at det. aie WORD 
M¥G REDE oe “G: -AS ey ve BYTE 
CURBLKINDEX. «2 «2 « BYTE 
CODATAINDE Xa: es. _ WORD 
RCVBYTESCONSUMED . WORD 
CURSLKLENLEFT © “s- -« WORD 
HISACKNO «6 «sw % WORD 
NEXTTRANSMIT «2. « « WORD 
CLOSEDREASON: a: Gon BYTE 176* 
HISCREOL Ve ate ee ce BYTE 
MLGHES TT SENT 6 a. 05% WORD 
Coy QeUrENT @ a. = BYTE 
PCBOQSUPONT. ce; ca: BYTE 
APR WS RE Jie: Woe ces WORD 
PKTSRETRAN «© « © » WORD 
NOCONPFID: ¢. 6 & <s- » WORD 
LASTNOCONFID « « -« WORD 
RETRANSMITSTATE. . BYTE 
SENDELAG ance. 6 #4 BYTE 
PENDINGRCVDATA . . WORD 
RCVSUFREJCNT «a «© « WORD 
AYTGOUNT . fe  -e  % WORD 
DATAALARMCB. « « ao WORD ARRAY C2) 
DATAACBIRBTYPE . « BYTE 
DATAACBFLAGe «0 « « BYTE 
DATAACB REM: «a ia ta SYTE ARRAYC(10) 
CTLALARMCB « « » « WORD ARRAY C2) 
CTLACSIRGTY PEs sx BYTE 
CTLACBFLAG « « « 2 BYTE 
CTLACBREM. « «a 2 2 BYTE ARRAY (10) 
TTOCOBINDEX. »« « «© » BYTE IN PROC CTRYTODELETECDB) PARANETER AUTOMATIC 173 179 
TIOCDEP se a: Gs Cw Ae we POINTER IN PROC CTRYTODELETECDB) PARAMETER AUTOMATIC 173 177 
178 179 
5 i er ee BYTE IN PROC CDEFERIRBTP) PARAMETER 54 
VAP S Sas Mae o> Gee ba Ge ee Se BYTE IN PROC CRPDEFERIRBTP) PARAMETER AUTOMATIC 162 163 
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PL/M~26 COMPIL=® 


142 OQ000H ce Nv e 


12 UNKNOWNCIORES? , 
367 Q548H 1217 UPDATERETRANTIMEOUT. 


686 OC4FH 
$7 QO000H 2 WCBO 
57 OQCGO0OOH 4 Wop, 


MODULE INFORMATION: 


CODE AREA SIZE 
CONSTANT AREA SIZE 
VARIABLE AREA SIZE 
MAXIMUM STACK SIZE 
2678 LINES READ 

1 PROGRAM WARNING 
O PROGRAM ERRORS 


END OF PL/M~86 COMPILATION 
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OO00H 
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WAITFORSEGMENT . 
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CROSS“REFERENCE LISTING 


Layer aceive Process 04/15/82 

‘ WORD IN PROC (CQDLLCONNECT) PARAMETER 
; LITERALLY 6° 

: PROCEDURE STACK=OCOAH 4144 

: LASEL IN PROC CRCVPROC) 

; WORD IN PROC (CQMRECEIVE) PARAMETER 

; POINTER IN PROC (STKY_INCR) PARAMETER 
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